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有明 主 


第 4 章 で 使用 する パタ ー ン デー 


第 3 章 の パタ ー ン エディ タマ で 作り ます 。 


TURBO C は 米国 Borland Intarnational 社 の 登録 商標 で す 
MS-DOS は 米国 Microsoft 社 の 登録 商標 で す 。 
その 他 本 文中 に 登場 する 製品 名 は 一 般 に 開発 メー カー の 商標 で す 。 


は じ め に 


コン パイ ラ と いう と 、 ほ ん の 少し 前 まで は 、 パ ー ソ ナル に 所 有する こと 
は 夢 物 語 と し て 語ら れる だ け で し た 。 し か し な が ら 、 現 在 で は TURBO C 
の よう な 統合 環境 下 で 、 プ ログ ラム の 編集 、 実 行 、 デ バッ ク が で きる 手軽 
な コン パイ ラ の 登場 に より 、 様 相 は 一 変 し て し まい まし た 。 し か も 、MS 
-DOS が 普及 する に つれ 、 マ シン を 自在 に 使い こなし た いと いう 欲求 を 実 
現す る た め の 有 力 な 手段 と し て 、C 言語 は 不動 の 地位 を 占め て きた よう で 
す 。 

実際 、C 言語 は 様々 な 欲求 答え て くれ ます 。 デ ー タ ベー ス や エディ タ だ 
け で は な く 、 コ ン パ ラ や OS まで も CC 言語 で 記述 され る に 至っ て は 、C 言 
語 の スー パー スタ ー ぶ り を 物語 っ て いる と 言え る の か も し れ ま せん 。 

さて 、 本 書 で は グラ フィ ックス の 中 で も 人 気 の 高 ム 分 野 で ある TV ゲー 
ム を テー マ と し て 掲げ て いま す 。 今 まで この 分 野 は 、 難 解 な マシ ン 語 で し 
か 開発 で き な い 特殊 な 分 野 と され て きま し た が 、 高 速 な 処理 を 要求 され る 
リア ル タ イ ム ゲ ー ム で さえ も 、 工 夫 次 第 で は C 言語 で 作る こと が 可能 と 
な っ て きま し た 。 も ちろ ん ゲー ム で は 、 ハー ドウ ェ ア に 強く 依存 し た プロ 
グラ ム と な る の は 避け られ な いこ と で すか ら 、 対象 と な る 機種 は PC-9801 
シリ ー ズ に 限る こと に な り ま す 。 し か し な が ら 、 逆 に 考え れ ば 、 機 種 に 強 
く 依存 し た プロ グラ ム も 記述 で きる と いう の が C 言 語 の 大 き な 特 徴 で あ 
る と も いえ る の で す 。 

本 書 で は 、 2 進数 の 基礎 か ら 始 まり 、 必 要 と され る ハー ドウ ェ ア の 知識 を 
解説 する と 共に 、C 言語 の 初心 者 で も 読め る よう に 各 関 数 は 簡単 な も の ば 
か り を 用 意 し まし た 。 そ し て 、 それ ぞ れ の 関数 は 機能 別に 部 品 化 を 図っ 7 だ 
も の と し 、 こ と これら を プロ ジェ クト ファ イル と し て 組み 上 げ て いく こと に 
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よっ て 、 お 絵かき ツー ル 、 パ ター シ エ デ ィ タ 、 マ ッ プ エディ タ 、 そ し て 最 
終 的 に は リア ル タ イ ム ゲ ー ム を 完成 する と いう 構成 に な っ て いま す 。 本 書 
を 通し て TURBO C の 新た な る 可能 性 を 開拓 する 楽し き を 、 ぜ ひ 味 わっ て 
だ き Wo 

な お 、 本 書 で は 、 次 の よう な シス テム を 想定 し て いま す 。 


1 …… PC-9801 シ リー ズ 本 体 

2 れい ディ スプ レイ (640X400 ド ッ ト の カラ ー デ ィ ス プレ イ ) 
3 MS-DOS シス テム 

4 …… TURBO C Version 2.0 以 降 


また 、PC-9801 VM21 以 降 の 機種 で は 640K バイ ト の メモ リ を 標準 で 装 
備 し て いま すか ら 問 題 な い の で す が 、 も し も 、640K バイ ト の メモ リ が 装備 
され て いな い 機 種 で あれ ば 、 サ ンプ ルプ ログ ラム の 中 で コン パイ ル で き な 
いも の も あり ます か ら 注 意 し て 下さ い 。 

最後 に な り ま し た が 、 本 書 の 執筆 に 際 し 、 い ろ い ろ と ご 協力 くだ さっ た 、 
啓 学 出版 の 嶋 叶 健 司 氏 、 パ ソコ ンク ラブ A.G プロ ジェ クト の 大 野 真也 、 佐 
藤 新 市 、 柴 田 錦 見 、 清 水 明 、 寺 内 一 郎 の 各氏 と 、 処 理系 を 提供 し て いた だ 
いた (株 ) マ イク ロ ソ フト ウェ ア アソ シェ エイ ツ の 方 々 に 、 こ の 場 よ り 改 め て 
御礼 申し 上 げ ま す 。 
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第 1 草 0 と 1 だ け の 世界 


現在 で は コン ピュ ー タ の 技術 も IC や LSI、VLSI の 時 代 に な り ま し た 
が 、 設 計 さ れ た 当初 は 、 外 部 か ら の ノイ ズ や 素子 の ば ら つ き な ど か ら 信 頼 
性 が 問題 で し た 。 そ こ で コン ピュ ー タ は 、 電 流 が 有る か 無い か 電圧 が 正 か 
負 か な どの 単純 な 2 つの 状態 を 基準 と し て 動作 する よう に 作ら れ た の で す 。 

た っ た 2 つの 状態 で す が 、 こ れ だ け で も 片方 を 0 も う 一 方 を 1 と する こと に 
よっ て 、 あ ら ゆ る 数 字 を 2 進数 で 表現 で きる わけ で す 。 そ し て 、 こ れ ら 2 進 
数 の 数 値 に 、 加 算 せ よ と か 引き 算 せ よ な ど の 特別 な 意味 を 持た せ た マ シン 
語 コ ー ド と いわ れる も の で 、 命令 が 組み 立て られ た の で す 。 

いま で は その 当時 と 比べ る と 格段 に 技術 も 進歩 し た を の で す が 、 や は り 現 
在 で も 多く の コン ピュ ー タ が 同じ 仕組 み で 動い て いま す 。 

と ころ で 、 コ ンピュータ が 2 進数 の 数 値 命 令 で 動い て いる と いっ て も 、 人 
間 が 直接 2 進数 の 数 値 命 令 を 出し て いる わけ で は あり ませ ん 。 通 常 は 高級 言 
語 と 言わ れる 命令 で プロ グラ ム を 記述 し 、 そ の プロ グラ ム を コン ピュ ー タ 
自身 に マシ ン 語 コー ド へ と 翻訳 きせ て いる の で す 。 こ の よう に 、 プ ログ ラ 
ム は どん な 言語 で 書か れん た も の で も 最終 的 に は 、 マ シン 語 コ ー ド に 翻訳 し 
て か ら 実 行き され ます 。 な お 、 マ シン 語 に 翻訳 する 前 の プロ グラ ム を ソー ス 
プロ グラ ム と いい ます 。 

本 書 で 扱っ て いる C 言 語 も 例外 で は な く 、 C 言語 で 書か ん た ソー スプ ロ 
グラ ム を な ん ら か の 翻訳 者 を 通し て 、 マ シン 語 へ と 翻訳 し た も の を 実行 す 
る こと に な り ま す 。 こ の 翻訳 者 の 形態 は 、 イ ンタ ー プ リタ 型 と コン パイ ラ 
型 の 2 つ に 大 別 さ れ ま す 。 

イン ター プリ タ は 、 あ る 言語 で 書か ん た ソー スプ ログ ラム を ひと つ ひ と 
つっ 読 み 込 ん で は 、 そ の 文字 列 が 何 を すべ きか を 解釈 し て 、 あ ら か じ め 組 ん 
で あっ た マシ ン 語 の プロ グラ ム の 中 か ら 、 対 応 し て いる 処理 を 実行 する 。 
と いう タイ プ に つけ られ た 総称 で す 。 
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この 方 法 で は 、 イ ンタ ー プ リタ 本 体 と 高級 言語 で 書か れん た ソー スプ ログ 
ラム だ け で すみ ます か ら 、 メ モリ は 少な ぐ て すみ ます 。 た だ し 、 翻 訳し な 
が ら 実 行 す る と いう 過程 で は 、 実 行 時 に 翻訳 時 間 が 加わ る こと に な り ま す 
か ら 、 そ の 分 スピ ー ド は どう し て も 遅く な り ま す 。 

現在 の パソ コン に は 、 ほ と ん ど イ ンタ ー プ リタ 型 BASIC が 付い て くる 
の で 少な く と も ゃ 一度 は イン ター プリ タ 型 言語 を 使っ た こと が ある の で は な 
いで し ょ うか 。 


命令 が 終 
わる まで 


繰り 返す 


図 1-1 イン ター プリ タ の 実行 過程 


使っ て みる と イン ター プリ タ 型 言語 は 非常 に 手軽 に 使え 、 し か も 、 修 正 
や 変更 も いた っ て 簡単 に お こ な え る こと が わか り ま す 。 

これ に 対し 、 ソ ー ス プロ グラ ム を あら か じ め 全 部 マシ ン 語 に 翻訳 し て 、 
その 翻訳 し た マシ ン 語 の プロ グラ ム を 実行 する と いう タイ プ を コン パイ ラ 
型 と いい ます 。 コ ン パ イラ に よっ て マシ ン 語 に 翻訳 する 作業 を コン パイ ル 
と 呼ん で いま す が 、 ソ ー ス プロ グラ ム は 、 コ ン パ イラ に よっ て 未定 議 ラ ベ 
ル 等 を 含む 中 間 的 な オプ ジェ クト ファ イル (拡張 子 OBJ) に 編集 され ます 。 
さら に 、 リ ンカ ー に よっ て 、 最 終 的 な マシ ン 語 プロ グラ ム が 作ら れる の で 
す 。 こ の 最終 的 な プロ グラ ム を 実行 プロ グラ ム (拡張 子 EXE) と いい ます 。 
実行 プロ グラ ム は イン ター プリ タ 型 と は 違っ て 、 実 行 時 に 翻訳 する 時 間 


実行 可能 実行 可能 


プロ グラ プロ グラ 
ム の 編集 ム の 実行 


図 l-1? コン パイ ラ の 実行 過程 


が か か り ま せん か ら 、 た い へ ん 高速 に 実行 され ます 。 

その 反面 、 何 ら か の バグ を 生じ た 場合 に は 、 翻 訳 さ れる 前 の ソー スプ ロ 
グラ ム を 取り 出し て 修正 し 、 再 び コ ン パ イル し て 実行 を 確認 する と いう 一 
連 の 面倒 な 作業 を し な けれ ば な り ま せん 。 と は いっ て も 、 得 られ る 安全 性 
や 高速 性 は 、 何 物 に も 代え 難い と いえ る で し ょ う 。 

本 書 で は この コン パイ ラ 型 C 言 語 の 特徴 を いか し て リア ル タ イ ム ゲ ー 
ム を 作り な が ら C 言 語 の 可能 性 を さ ぐ ろ うと いう わけ で す 。 
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田 2 進数 (binary number) 


リア ル タ イ ム ゲ ー ム に 限ら ちず 、 高 速 な グラ フィ ックス 処理 を する に は 、 
や は り コ ンピュータ の 世界 、 す な わ ち 0 と 1 だ け の 世界 で ある 2 進数 (binary 
number) の 基礎 的 な こと を 知ら な けれ ば な り ま せん 。2 進 数 と は どの よう 
な も の か を 知る た め に 、 こ こ で 、4 桁 の 2 進数 と 10 進 数 を 対比 きせ て み ま し ょ 
ウ 。 
表 |-| 10 進 数 と 4 桁 の 進数 と の 対応 


いか が で すか 、4 桁 の 2 進数 で 表す こと が で きる の は 表 1-1 に ある よう に 全 
部 で 0 か ら 15 ま で の 16 種 類 で す 。 

この よう に 2 進数 は 、0 と 1 だ けが 並ん で いる だ け で すか ら 、 何 が どれ を 表 
し て いる の か 人 間 に と っ て は 区 別 が し に くい で すね 。 

さら に 2 進数 の 世界 を 知る た め に 、1 桁 の 2 進数 どう し の 足し 算 を 考え て み 
まし ょ う 。 


図 1-3 1 桁 の 6 進数 の 足し 算 


は じ め の 3 つの 演算 は 10 進 数 と まっ た く 同 じ で す が 、 注 目 し た い の は 最後 
の 1 十 1 で す 。 これ は 10 進 数 で は 2 と な り ま す が 、 2 進数 の 世界 で すか ら 2 に な 
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る と 桁 上 が り を 起こ し て 10 と な り ま す 。 十 進数 で 2 と 表し て も 、2 進 数 で 10 
と 表し て も 物 の 本 質 、 す な わ ち 、 絶 対 的 量 に は な ん ら 変 わり が な いと いう 
の は 書く まで も あり ませ ん 。 

と ここ で 、 先 ほど の 表 1-1 を 再び 参照 し て み ま し ょ う 。2 進 数 を も っ と 身近 
に 感じ る た め に 紙 と エン ピ ツ で 2 進数 の 0000 か ら 最 後 の 1111 に な る まで 順 
に 1 を 足し て みて くだ さい 。 

実際 に 計算 を し て みる と 、 な ん と な く コ ンピュータ の 味 け 無い 世界 に 触 
れ た よう な 気 が し ませ ん か 。 
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一 2 進数 の 単位 の 呼び 方 


さて 、 コ ンピュータ 気分 に 浸っ た と と ろ で 話 を 先 に 進め まし ょ う 。 我 々 
人 間 の 世界 で は 物事 の 関係 を 表す の に 色々 な 単位 を 用 いて いま す 。 たとえ 
ば 重き さき を 表す の に kg、 時 間 を 表す の に は 時 、 分 、 秒 、 な ど で す が 、 コ ン ピ ュ ー 
タ の 世界 で も いろ いろ な 単位 を 使っ て いま す 。 

コン ピュ ー タ の 世界 の 基本 単位 で ある 2 進数 1 桁 の こと は 、 ビ ッ ト (bit) 
と 呼ん で いま す 。 これ は binary-digit の 略 で す 。 取り うる 値 は 0 か 1 の 2 つ だ 
けし か あり ませ ん 。 これから 本 書 で は 1 桁 の 2 進数 と か 2 桁 の 2 進数 と は 言わ 
ず に 、 こ の ビッ ト の 単位 を 使っ て いき ます 。 し た が っ て 1 桁 の 2 進数 は 1 ビッ 
ト 、2 桁 の 2 進数 は 2 ビッ ト と いう こと に な り ま す 。 

2 進数 4 桁 で は ニブ ル (nibble) と いい ます 。 そ し て 、 8 桁 で は バイ トト (byte) 
と いい ます が 、 こ の バイ ト は コン ピュ ー タ の 世界 で は ビッ ト と 並ん で よく 
使わ れる 単位 で す 。 た と えば 、PC-9801 の メモ リ 上 の 記憶 単位 が バイ ト 単 位 
(8 桁 の 2 進数 ) で すし 、 マ シン 語 も バイ ト 上 単位 で 構成 され て いま す 。 ま た 、 
英文 字 や 、 特 殊 文字 を 処理 する 単位 も バイ ト 単 位 で す 。 

と これ ら の ほか に は ワー ド (word) と いう 単位 が あり ます が 、 こ れ は 処理 
系 に よっ て 4 ビッ ト 、12 ビ ッ ト 、32 ビ ッ ト な ど 、 い ろ い ろ な 桁 数 が あり ます 。 
PC-9801 で は 16 ビ ッ ト を ひと つの ワー ド と し て いま す 。 

これ ら 4 つ の 単位 (ビッ ト 、 ニ ブル 、 バ イト 、 ワ ー ド ) は 、 コ ンピュータ 
の 世界 で は 常識 と し て 扱わ ん て いま すか ら 、 そ の 言葉 の 意味 を 覚え て お か 
な けれ ば な り ま せん 。 


図 1-4 進数 の 単位 


文字 コー ド 7 


男 文字 コー ド 


画面 上 に 表示 され て いる 英文 字 や や 漢字 は コン ピュ ー タ が 扱う 場合 に 、 や 
は り 2 進 数 と し て 扱っ て いま す 。 た だ 、 CRT の 画面 上 に 表示 され た 時 が 2 進 
数 で は な く 、 文 字 の 形 を し て いる に すぎ ませ ん 。 

すなわち ひと つ ひ と つの 文字 に 、2 進 数 を 1 対 1 に 対応 きせ て いる の で す 。 
も ちろ ん 、 2 進数 1 桁 で は 、 0 か 1 の 2 通り し か 対応 で きま せん か ら 、 あ る 程度 
十分 な 桁 数 で ある 8 桁 の 2 進数 (1 バイ ト ) を 使っ て いま す 。 

この 対応 の きせ 方 は いろ いろ 考え られ ます が 、 処 理系 や コン ピュ ー タ に 
よっ て ば ら ば ら で は まっ た く 互 換 性 が な く な り ま すか ら 、 そ とこ に は ちゃ ん 
と 標準 化 が な され て いま す 。 

PC-9801 で は 英文 字 や 特殊 文字 を 表す コー ド と し て アス キー コー ド に 準 
拠 し て いま す 。 た と えば 、 英 文字 A の アス キー コー ド は 2 進数 で は 01000001 
と な り ま す 。B は 01000010、C は 01000011 で す 。 で すか ら 、 信 号 と し て 
01000001 が 送ら れる と CRT 上 に 英文 字 の A が 表示 され る わけ で す 。 

な お 、 ソ ー ス プロ グラ ム は エディ タ を 使っ て 、 と の アス キー コー ド で 編 
信じ ます ) 
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一 2 進数 と 16 進 数 


と ころ で 、2 進 数 を 扱う 時 に は 0 と 1 の 羅 列 で すか ら 人 間 に と っ て は と て も 
苦痛 で す 。 し か も 、 書 き 表 す 時 に は 、 か な り の スペ ー ス を 使い ます の で 、 
むだ が 多い と も いえ ます 。 

そこ で 2 進数 の お も し ろ い 性 質 を 使っ て 、2 進 数 を 16 進 数 で 表記 する と い 
う 手 品 の よう な 、 ま っ た く 不 思 議 な 方 法 を 使う わけ で す 。 こ こ で は あっ さ 
り と その 種 あ か し を し て み ま し ょ う 。 

通常 よく 使わ れる メモ リ の 基本 単位 で ある 8 ビッ ト の 2 進数 を 考え て み ま 
す 。 ま ず 代 表 選 手 と し て 、00001111 と いう 半分 が 1 で ある 状態 を 考え ます 。 
さら に 、 こ の 8 桁 の 2 進数 を 上 位 4 桁 と 下位 4 桁 の 2 つ に 分 け て み ま す 。 


0 0 0 0 ) 計 本 
上 位 4 ピ ッ ト 下位 4 ビッ ト 


図 1-5 8B 桁 の 進数 を つ に 分 ける 


この 図 で 、 下 位 の 2 進数 1111 は 表 の 1-1 よ り 、10 進 数 で は 15 に 対応 し て い 
る こと が 分 か り ま す 。 
さて 、 こ の 下位 の 4 ビッ ト 1111 に 1 を 足す と どう な る で し ょ うか 。 


1111 
1 


= 
19000 橋上 が り が 生じ る 


図 1-6 下位 4 ビ ピット に 1 を 足す 


上 の よう に 計算 され ます が 、 得 られ た 結果 は 下位 4 ビッ ト で は 足り ず に 、 
上 位 4 ビ ッ ト の 方 へ と 桁 上 が り を 生じ る こと が 分 か り ま す 。 
この こと は 、2 進 数 の 4 桁 が 集まっ て 、 ひ と つの 数 字 を 構成 する と 見 立て 
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る こと に よっ て 、16 に な れ ば 上 位 の 位 へ と 桁 上 が り を 起こ す 16 進 数 と 同じ 
動き を し て いる と みな せる の で す 。 し た が っ て 8 ビッ ト の 2 進数 は 、2 桁 の 16 
進数 と し て 表記 で きる と いう わけ で す 。 

と ころ で 、 数 字 は 0 か ら 9 ま で し か あり ませ ん か ら 、16 進 表記 を する 時 に 
は 10 て 15 ま で を 、 ア ルフ ァ ベ ッ ト の A~F の 6 文字 に 対応 させ て いま す 。 こ 
れ か ら は 16 進 数 と いえ ば アル ファ ベッ ト の A^F も 数 字 の 仲間 に 加え て あ 
げ て くだ さい 。 

また 、16 進 数 と 10 進 数 と の 明確 な 区 別 を する た め に 、 一 般 的 に は Hexa- 
decimal (16 進 数 ) の 頭 文字 の H を 16 進 数 の 後ろ に 付け て 表記 し て いま す 。 
な お 、C 言 語 で 扱う 数 値 は 16 進 数 の 前 に 0x を 付記 する こと に な っ て いま 
が 

PC-9801 で は モニ タ を 使っ て メモ リ の 内 容 を 表示 し た り 、 メ モリ に 数 値 
を 書き 込ん だ りす る こと が で きま す が 、 こ の 時 に 威力 を 発揮 する の が こと の 
16 進 表記 で す 。 ま た 、BASIC の PEEK 文 や POKE 文 で も 16 進 表記 で 2 進数 
を 扱う こと が で きま す 。 

この よう に 2 進数 と 16 進 数 は 密接 な 関係 に ある の で す が 、 こ れ は あく まで 
も 見 か け 上 で あっ て 、 コ ンピュータ は 2 進数 と し て 扱っ て いる の で す 。 
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較 マシ ン の 心臓 部 を 探る 


マシ ン の 心臓 部 、 す な わ ち CPU (Central Processing Unit) の こと で す 
が 、 や は り C 言 語 を 十分 に 利用 する に は CPU の 特徴 ぐら い は 知っ て お く 
べき で し ょ う 。 PC-9801 シ リー ズ で は 、 8086 系 CPU が 使わ れ て いま す 。 こ 
の CPU の 特徴 は 、 な ん と いっ て も セグ メン ト に よる メモ リ 管 理 の 方 法 で 
す 。 

この 概念 は 、 メ モリ を CPU が 一 度 に 数 を え を られ る 範囲 で 分 割 し 、 そ の 分 割 
単位 で 管理 する と いう 考え 方 で す 。 こ の 分 割 単位 を セグ メン ト と 呼び 、 そ 
の セグ メン ト 内 の 相対 的 な 位置 を オフ セッ ト と いい ます 。 

で すか ら メ モリ を 直接 参照 する 場合 に は 、8086 系 CPU 上 で プロ グラ ム 
が 動い て いる 限り 、 ど の セグ メン ト を 使う の か と いう セグ メン ト ア ドレ ス 
と 、 そ の セグ メン ト 内 の 相対 的 な オフ セッ ト ア ドレ ス の 2 つ を 与え る 作業 が 
必要 と な っ て きま す 。 PC-9801 上 で TURBO C を イン スト ー ル する 時 に 、 
メモ リモ デル を 指定 し た と 思い ます が 、 こ の メモ リモ デル も プロ グラ ム で 
セグ メン ト を どの よう に 使っ て いく の か の 指定 に 他 な り ま せん 。 

C 言語 は 高級 言語 で ある に も か か わら ず 、 メ モリ を 直接 アク セス する こ 
と が で きる よう に な っ て いま す 。 当然 の こと な が ら 直 接 メ モリ を アク セス 
する 場合 に は 、 セ グ メ ント アド レス と セグ メン ト 内 の オフ セッ ト ア ドレ ス 
を 設定 する こと に な り ま す 。 

さて 、 本 書 が テー マ と し て 掲げ て いる TV ゲー ム は 、 実 は せ 、 こ の メモ リ 
に 直接 アク セス する 作業 に ほか な ら な い の で す 。 
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還 PC-9801 の G.V.RAM と は 


PC-9801 の メモ リ に は 、 グ ラフ ィ ッ クス を 表示 する た め の 特 別 な メモ リ 
が 用 意 き れ て いま す 。 こ れ を グラ フィ ッ ク ビ デオ ラム (以下 G.V.RAM と 
略記 ) と いい ます が 、 こ の メモ リ は 、 他 の メモ リ と 同様 に バイ ト (8 ビッ ト 
の 2 進数 ) 単 位 で 数 値 を 記憶 きせ る こと が で きま す 。 た だ 、 他 の メモ リ と 暴 
な る の は 、 記 憶 し た 数 値 の ビッ トイ メー ジ (2 進数 の 1 桁 ) が 画面 上 の ドッ 
ト ( 点 ) に 対応 し て いる と いう こと で す 。 

すなわち 、CRT 画面 で グラ フィ ックス 処理 を する と いう こと は 、 こ の G. 
V.RAM に 数 値 を 書き 込む と いう こと な の で す 。 

G.V.RAM は 、 色 別に 4 つの グル ー プ に 分 か れ ま す 。 そ れ ぞ れ を プレ ー ン 
と 呼ん で いま す が 、 初 期 状態 で は プレ ー ン 0 は 青 で 、 セ グ メ ント アド レス 
A800』、 オ フ セ ッ ト ア ドレ ス 0』 か ら 始 まっ て いま す 。 一 般 的 に セグ メン ト ア 
ドレ ス と オフ セッ ト ア ドレ ス は : で 区 切っ て 表記 し て いま すか ら 、 こ の 場合 
に は 、A800:0000』 と な り ま す 。 また 、 各 プ レー ン の 大 き さ は 8000』 バ イト と 
な っ て いま す 。 

同様 に 、 プ レー ン 1 が 赤 で 、 ア ドレ ス は B000:0000』ーB000:7FFF,、 プ レー 


0 1 の):xwwwvwwvtvwvtvxs 77 78 79 


TV 画面 (640X400 ド ッ ト モ ー ド ) 


398 437E60k II7C61g IGG82 | の い いい いこ | 7CAD』 | 7CAEa | 7CAFm 


399 7CB2m | oe 7CFDa | 7CFE』 | 7CFFm 


図 -7 640X40U ド ッ ト モ ー ド 表示 
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ン 2 が 緑 で 、 ア ドレ ス は B800:0000』>B800:7FFF』、 そ し て 、 プレ ー ン 3 が 輝 
度 用 で 、 ア ドレ ス は E000:0000』ーE000:7FFF』 と な り ま す 。 

ここ で 、 各 オフ セッ ト ア ドレ ス が 0000』-7FFFa と な る よう に 、 セ グ メ ン 
ト ア ドレ ス を 設定 し て ある こと に 注意 し て くだ さい 。 

この 場合 の 、 各 プ レー ン の オフ セッ ト ア ドレ ス と 工 V 画面 と の 対応 は 次 
の よう に な っ て いま す 。 な お 、 実 際 に 画面 に 表示 され る メモ リ の 範囲 は 、 
グラ フィ ックス シス テム に 640X400 ド ッ ト モ ー ド を 選択 し た 場合 、 オ フ 
セッ ト ア ドレ ス で 0000』>7CFF』 ( 図 1-7) と な り ま す 。 


TV 画面 (640X200 ド ッ ト モ ー ド ) 


198 | 3DEOm | 3DElm | 3DEam| …………… | 3E2Di | 3E2Em | 3E2Fm 
199 | 3E30』 | 3E3lm | 3E32m | ……………… | 3E7Dm | 3E7Em | 3E7F 


図 1-8 640XP0UH ド ッ ト モ ー ド 第 1 ペー ジ 表 示 


0 1 レ 語 還 還 還 CUUUTCCHT が 723 が 4 78 79 
0 | SE80』 | SE8lm | 3E82m | ……………… | 3ECDa| 3ECEa| 3ECFm 
1 | 3EDOm | SEDn | 3EDzm | ……………" | 3FIDu | 3FIEm | 3FIFm 


TV 画面 (640X200 ド ッ ト モ ー ド ) 


7C61m 7C62L | ………e………… 


7CBO』 | 7CB1m | 7CB2H | … で oei…… 


198 
199 


図 1-9 540XP0U ド ッ ト モ ー ド 第 5 ペー ジ 表 示 
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また 、640X200 ド ッ ト モ ー ド の 画面 に 表示 され る メモ リ の 範囲 は オフ 
セッ ト ア ドレ ス で 0000』ー3E7Fi ( 図 1-8) 、 ま た は 、3E80』>7CFF。 ( 図 1-9) 
と な り ま す 。 ど ちら の 範囲 を 使う か は 、 ペ ー ジ 指定 に よっ て 選択 し ます 。 
プレ ー ン が 4 つ ( 青 、 赤 、 緑 、 輝 度 ) と いう こと は 単純 に 考え る と 、4 種 
類 の 色 し か 出せ な いよ うに も 思え ます が 、 実 は 、 各 プレ ー ン の 表示 アド レ 
ス が 重なっ た (同じ オフ セッ ト ア ドレ ス と な る ) 場合 に は 、 別 の 色 を 発色 
する 仕組 み に な っ て いる の で す 。 こ の 重なり 方 は 全部 で 16 種 類 あ り ま すか 
ら 、 必 然 的 に 、 色 と し て は 16 種 類 が 使え を る を こと に な り ま す 。 ま た 、 こ れ ら 
16 種 類 の 色 は 、 固 定 さ れ て いる わけ で は な く 、4096 色 の 中 か ら 任意 の 色 を 
設定 する こと が で きる よう に も な っ て いま す 。 

さて 、 せ っ か く コ ン パ イラ を 使っ て いる の に 長 々 と 2 進数 や メモ リ の 話 ば 
か り で は 興味 も 半減 か も し れ ま せん ね 。 そ ろ そ ろ 、0 と 1 だ け の 世界 か ら 抜 
け 出 すこ と と に し まし ょ う 。 


信人 和え keV 0 
ふる まつ | し ゃ 靖 
拓 そ を きす あ 欄 朋 9 う 村人 委 天 @ 人 0 つ > ) で の を 競 和 な ぶ み 活 藤 H き キ 
が <3 可 鍼 き 、 し 9 


TV 華 面 (649K80O ポ y ト ネー ド ) 
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グラ フィ ックス 処理 の 醍醐 味 は な ん と いっ て も 、TV ゲー ム に 代表 され 
る 2 次 元 e の 世界 を 創造 する こと で し ょ う 。 

新しい 世界 を 創造 する の で すか ら 、 そ れこ そ 、 神 様 の よう な 気分 が 味 わ 
える わけ で す 。 し か も 、 そ れ が 製品 化 さ れる と な る と 、 も うと た えら れ ま 
せん 。 

この 章 で は 、 グ ラフ ィ ッ クス の 最も 基本 と な る ドッ ト ( 点 ) に 焦点 を 当 
て て 話 を 進め て いき ます 。 大海 も 一 滴 の 水 か ら で き て いる よう に 、 あ ら め ゆ 
る グラ フィ ックス 処理 の 基本 単位 は ドッ ト で すか ら 、 と の ドッ ト を 自由 に 
扱う こと が で きれ ば 、 グ ラフ ィ ッ クス 処理 も 自在 に こなせ る と と に な る の 
で 天 8 

で は 、TURBO C を 使う た め の 、 簡 単 な 下 準備 か ら 始 め る こと に し ま 
村 ポ ナ 。 
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圏 グラ フィ ックス 処 理 を 始め る 前 に 


TURBO C に 限ら ちず 、 他 の MS-DOS 上 で 動い て いる シス テム に と っ て 、 
グラ フィ ックス 処理 を 始め る 場合 に は 、 必 ず グ ラフ ィ ッ クス シス テム の 初 
期 化 作業 を し な けれ ば な り ま せん 。 

と いう の も 、MS-DOS で は 、 グ ラフ ィ ッ クス シス テム も ひと つの デバ イ 
ス と みな し て いる た め 、BASIC の よう に 初め め ら グラ フィ ックス シス テ 
ム が 使え る 状態 で は な い の で す 。 

一 般 的 に は 、MS-DOS 付属 の グラ フィ ックス ドラ イ バ を デバ イス ドラ 
イ バ に 組み 込ん で 制御 する こと に な り ま す 。 

これ に 対し 、TURBO C で は 、MS-DOS の グラ フィ ックス ドラ イ バ と は 
無関係 に 、 独 自 の BGI (Boaland Graphics Interface) と いう ライ ブラ リ 
を 用 意 し て いま す 。 こ れ ら の ドラ イ バ に は 、 次 の 3 種類 が あり ます 。 


PC98.BGI 
PC98GRCG.BGI 
PC98EGC.BGI 


これ は 、 PC-9801 シ リー ズ に 、 3 種類 の グラ フィ ックス シス テム が ある か 
ら で す 。 PC-9801 シ リー ズ の グラ フィ ックス シス テム は 、PC-9801U/UV/ 
VE/VM か ら 、 グ ラフ ィ ッ クチ ャ ー ジ ャ ー (GRCG) が 、VX か ら は エン ハ 
ンス トグラフ ィ ッ クチ ャ ー ジ ャ ー (EGC) が 登載 され まし た 。 

で すか ら 、 ユ ー ザ ー の シス テム に EGC が 登載 され て いれ ば PC98EGC. 
BGI を 、 GRCG が 登載 され て いれ ば PC98GRCG.BGI を 、 そ し て 、 GRCG 
も EGC も な けれ ば PC98 .BGI と いう グラ フィ ックス ドラ イ バ を 使う こと 
に な り ま す 。 

な お 、 グ ラフ ィ ッ クス シス テム が 何 か を 判定 する 関数 detectgraph() が 
用 意 き れ て いま すか ら 、 特 に ユー ザー が どの シス テム を 使っ て いる か を 意 
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識 す る こと な し に 、 こ れ ら の ドラ イ バ を 使う こと も で きま す 。 

と ころ で 、 こ れ ら の * .BGI と いう ファ イル は 、 そ の まま の 形 で は な く 、 
マス ター ディ スク の DISK 3 に ある BGI.ARC 内 に 圧縮 し て 格納 され て い 
ます か ら 、 使 用 する 場合 に は 圧縮 前 の ファ イル に 戻さ な けれ ば な り ま せん 。 
圧縮 前 の ファ イル に 戻す と いっ て も 、 難 し いこ と で は な く 、 同 じ デ ィ ス ク 
に ある UNPACK.EXE を 使っ て 簡単 に 復元 する こと が で きま す 。 

次 に A ド ライ ブ か ら B ド ライ ブ へ の ファ イル の 展開 例 を 示し て お きま 
すか ら 参 考 に し て くだ さい 。 

まず 、DISK 3 を ドラ イブ A に 、 ワ ー ク ディ スク を ドラ イブ B に セッ ト 
選 、 次 の まう 実行 し ます 8 


BGr .ARC の 展開 例 
A>UNPACK BGT.ARC B:*.BGr 


展開 し た * .BGI の ファ イル は 、 以 下 の プ ログ ラム で は カレ ント ディ レ 
クト リ に ある も の と し て 扱っ て いき ます 。 

グラ フィ ックス 関係 の 関数 を 使う た め に は 、 こ の 他 に 、TURBO C 付属 
の ライ ブラ リフ ァイル GRAPHICS .LIB と 、 ヘ ッ ダ ファ イル GRAPHICS.H 
が 必要 と な り ま すか ら 、 所 定 の ディ レク トリ に 用 意 し て お いて くだ さい 。 
な お 、 本 書 に 掲載 され て いる プロ グラ ム だ け を プロ グラ ミン グ す る な ら ば 、 
メモ リモ デル は スモ ー ル モデ ル と な り ま す 。 
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較 グラ フィ ックス 処理 を 開始 する に は 


さき さて 、 こ れ で グラ フィ ックス 処理 の 準備 が や っ と 整い まし た 。 さ っ そく 
TURBO C の 関数 を 使っ て 、 グ ラフ ィ ッ クス シス テム の 初期 化 作業 を する 
関数 を 作っ て み ま し ょ う 。 


LIST2-0.C 


/* 
グラ フィ ックス シス テム の 初期 化 

ガメ 

#1nc1ude <graphtos .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る x/ 

#inc1ude く std1ib .h> 

#1nc1ude < く stdio.h> 

#1nc1ude <conto.h> 


1nt gdriver, グラ フィ ックス モー ド 和 格納 用 */ 
gmode グラ フィ ックス ドラ イ バ 格 納 用 */ 


void grphinit (vo1d) 
{ 
1nt ercoQde: /* 使用 変数 の 宣言 */ 


deteotgraph (&gdriver, &gmode) /* ドラ イ バ g モ ー ド の 設定 */ 

nttgraph (ggdrtver,。 &gmode, ""): /* グラ フィ ックス シス テム の 初期 化 */ 

eroode = graphresu1t () /* エラ ー コ ー ド の 取得 */ 

if (ercode != grOk) { /* エラ ー で あれ ば メッ セー ジ を 出す */ 
Printf("\wn グ ラフ イッ クス エラ ー : $syn", grapherrormsg (ercode) ) : 


printf("Press any key\n"): 
getoh () : /* キー の 入力 待ち ょ */ 
e* エ も (1) : /* MS-DOS へ メ / 


この プロ グラ ム の 、 実 行文 の 始ま り に ある 関数 detectgraph() で 、 最 適 な 
ダラ タワ ウィ ックス ドラ イ バ と 中 寺 下る 決定 し て いま す 。 ドラ イ バ と 邊 一 ド を 
格納 する 変数 は 他 の 関数 で も 参照 する こと が 予想 され ます か ら 、 関 数 の 外 
で 定義 し ます 。 

次 の initgraph() と いう 関数 が 、 こ こ で メイ ン と な る グラ フィ ックス シス 
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テム を 初期 化し て いる 関数 で す 。 関 数 initgraph() の 3 番目 の 引数 "” は 、 先 
に 出 て きた グラ フィ ックス ドラ イ バ の *.BGI の 格納 され て いる ディ レク 
トリ パス を 示し て いる の で す が 、 こ の 例 の よう に 、 な に も 指定 し な い 場 合 
に は カレ ント ディ レク トリ に 、 グ ラフ ィ ッ クス ドラ イ バ が 入っ て いる こと 
を 意味 し て いま す 。 

initgraph() の 実行 結果 は 、 関 数 graphresult() で 得 ら れ ま すか ら 、 そ の 結 
果 に し た が っ て 、 エ ラー 処理 を し ます 。 

ここ で は 、 単純 に メッ セー ジ を 表示 し て 関数 exit (1) で 、 呼び 出さ れ た 親 
プロ セス へ 制御 を 戻し て いま す 。 も し 、 エ ラー メッ セー ジ で プロ グラ ム が 
終了 し た 場合 に は 、 も う 一 度 、 各 ファ イル の 存在 を 確か め て くだ きい 。 


20 第 2 章 実践 グラ フィ ックス 基礎 編 


一 far 指 定 り ボイン タ 変 数 


で は 、 実 際 に G.V.RAM へ アク セス し て み ま し ょ う 。G.V.RAM は 特殊 
な メモ リ で ある こと は 、] 章 で も 述べ まし た が 、 こ こ で も う 一 度 G.V.RAM 
の 整理 を し て み ま す 。 


表 g-| G.V.HAM アド レス と プレ ー ン と の 対応 
ン 。 


xs 開始 セグ メン | 開始 オフ セッ 
ト ア ドレ ス 


第 0 プレ ー ン A800』 


VRAM の 大 きき [ 対応 色 


赤色 
緑色 
輝度 


表 2-1 に 示し た よう に 、G.V.RAM に は プレ ー ン が 4 つ (初期 の PC-9801 
で は 青色 、 赤 色 、 緑 色 の 3 つ ) あり ます 。 こ れ ら の 4 つの プレ ー ン に より 、 
ひと つの 画面 が 構成 され る の で す 。 また 、 PC-9801 シ リー ズ で は 、 こ の 画面 
が 第 一 画面 と 第 二 画面 の 二 組 (PC9801、PC-9801U で は 第 一 画面 の み ) 用 
意 き され て お り 、 ポ ー ト A4』, A6』 で コン トロ ー ル し て いま す 。 


表 2-2 画面 の |/ コン トロ ー ル 
ポー ト 値 


A4』 AG 


第 一 画面 表示 | 第 一 画面 アク セス 
第 二 画 面 表示 | 第 二 画 面 ア クセ ス 


それ ぞ れ の プレ ー ン の 大 き さ は 8000』 バ イト な の で す が 、 画 面 上 に 表示 さ 
れる 範囲 は 、 640X400 モ ー ド で は 、 0^-7CFF』 と な り 、640X200 モ ー ド で は 
その 半分 と な り ま す 。 ま た 、 第 0 一 第 2 プレ ー ン の 3 プレ ー ン だ け を 使う と 、 
8 色 モ ー ド と な り 、4 プ レー ン 多 部 使う と 16 色 モー ド となり ます 。 

各 メ モリ は 8 ビッ ト 単 位 で 構成 され 、 そ の ビッ トイ メー ジ が TV 画面 上 
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の ドッ ト ( 点 ) に 対応 し て いま す 。 

以上 が 、1 章 で の グラ フィ ッ ク ビ デオ ラム (G.V.RAM) に 関し て の 概要 
で す 。 な お 、 こ れ ら 4 つの プレ ー ン は 、 以後 、 初期 状態 の 色 別 に 呼ぶ こと に 
し ます 。 で すか ら 、 プレ ー ン 0 は 、 Blue( 青 ) の 頭 文 字 を と っ て B 面 、 プ レー 
ン 1 は 、Red ( 赤 ) の R を と っ て R 面 、 プ レー ン 2 は Green ( 緑 ) の G 面 、 
そし て 、 プ レー ン 3 は Intensity (輝度 ) の 1 面 と 呼ぶ こと に し ます 。 こ の ほぼ 
う が 、0~-3 と 呼ぶ より も 感覚 的 に 色 の 構成 を 把握 し や すい か ら で す 。 

さて 、C 言 語 で これ ら G.V.RAM へ アク セス する た め に は 各 プ レー ン 
に た いす る ポイ ンタ を 介し て アク セス する こと に な り ま す 。 

ポイ ンタ と は 字 の 通り に 何 か を 指し て いる 変数 で す 。 変数 を 指し て いた 
り 関 数 を 指し て いた り 色 々 で す が 、 こ こ で は G.V.RAM と いう メモ リ を 
指し て いる こと に な り ま す 。 し か も 、 セ グ メ ント アド レス と オフ セッ ト ア 
ドレ ス を 設定 し な けれ ば な り ま せん か ら 、 ポ イン タ は 必然 的 に far タイ プ 
の ポイ ンタ と な り ま す 。 

次 の LIST2-1 が 、 各 G.V.RAM に 対す る far タイ プ の ポイ ンタ 変数 を 
設定 する た め の 関 数 で す 。 


LIST2-1.C 


/* 
char 型 と int 型 の G.V.RAM へ の Ear ポイ ンタ の 作成 
*/ 


#1nc1ude <dos .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る */ 


char far *c bue: /* char 型 8 面 用 ポイ ンタ の 宣言 */ 
1nt far *i blue: /* int 型 B 面 用 ポイ ンタ の 宣言 */ 
char far *o red: /* char 型 R 面 用 ポイ ンタ の 宣言 */ 
nt far *1 red: /* nt 型 R 面 用 ポイ ンタ の 宣言 */ 
char far *o_ green: /* char 型 G 面 用 ポイ ンタ の 宣言 */ 
1nt far *1 qreen: /* nt 型 G 面 用 ポイ ンタ の 宣言 */ 
ohar Ear *o ESY: /* char 型 エ 面 用 ポイ ンタ の 宣言 */ 
1nt far *i itsty: /* nt 型 エ 面 用 ポイ ンタ の 宣言 */ 


Yotd pointer set (Yo1d) 
{ 
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char 型 B 面 用 ポイ ンタ の 作成 */ 


1 blue = MKFP(Oxa800, 


c_b1ue = MKFP(Oxa800, 0): /* nt 型 B 面 用 ポイ ンタ の 作成 */ 
1 red = MKFP(Oxb000, 0): /* char 型 R 面 用 ポイ ンタ の 作成 */ 
c_red =MKFEP(Oxb000, 0): /* nt 型 R 面 用 ポイ ンタ の 作成 */ 
1 green = MKFP(Oxb800, 0): /* char 型 G 面 用 ポイ ンタ の 作成 */ 
c_green = MK FP(Oxp800, 0): /* int 型 G 面 用 ポイ ンタ の 作成 */ 
1 itsty = MK FP(Oxe000, 0): /* char 型 r 面 用 ポイ ンタ の 作成 */ 


c_itsty = MK FP(Oxe000, 0): /* nt 型 r 面 用 ポイ ンタ の 作成 */ 


ここ で 、far タイ プ の ポイ ンタ 変数 を 定義 し た 所 が 、 関 数 の 外部 で ある こ 
と に 注意 し て くだ さい 。 定義 し た ポイ ンタ は 、 色々 な 関数 で 使い ます か ら 、 
変数 の 可視 性 を 考慮 し て 、 関 数 の 外部 で 定義 し ます 。 す な わ ち 、 他 の 関数 
で 参照 され る こと を 前 提 と し て いる わけ で す 。 

far タイ プ の ポイ ンタ 変数 に 対す る アド レス は 、TURBO C の 関数 MK 
_FP() を 使っ て 設定 し ます 。 ま た 、 ひ と つの プレ ー ン に 対し て int 型 と 
char 型 の 二 種 類 の 変数 を 用 意 し て いま す 。 

この よう に 、 ひ と つの プレ ー ン に 対し て ポイ ンタ を 二 種 類 に し た の は 、 
メモ リ が 1 バイ ト (8 ビッ ト ) 単位 で 数 値 を 記憶 する こと に 起因 し ます 。 す 
な わ ち 、 メ モリ に 対す る 最小 の アク セス 単位 は 8 ビッ ト 長 の char 型 と な る 
た め 、char 型 は 最も 細か い グ ラフ ィ ッ クス 処理 を する の に 適し て いる わけ 
で す 。 そ し て 、 int 型 は この 場合 16 ビ ッ ト 長 で すか ら 、 メ モリ の 記憶 単位 を 
一 度 に 2 つ 処 理 す る た め に グラ フィ ックス 処理 の 高速 化 が 図れ る と いう メ 
リッ ト が ある の で す 。 

これ ら の G.V.RAM へ の ポイ ンタ は 、 いわ ば 、 油 絵 に お ける 絵筆 の よう 
な も の で す 。 絵筆 は 色 別 に すれ ば 、 青 、 赤 、 緑 、 輝度 、 の 4 種類 と な り ま す 。 
それ ぞ れ に 、 対 応 し た ポイ ンタ を 、 blue, red, green, そし て intensity は 
長 す ぎ ま す か ら itsty と 名 付け 、int 型 の i と char 型 の c を 頭 に 付け て あり 
ます 。 
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田 色 の 混ぜ 合わ せ 


さて 、 こ れ ら の 4 つの 色 は 混ぜ る こと も で きま す 。 と いっ て も 、 絵 の 具 の 
よう に パレ ッ ト 上 で 混ぜ 合わ せる わけ で は あり ませ ん 。 混 ぜ よ うと する 各 
ポイ ンタ の 同じ オフ セッ ト ア ドレ ス に 、 デ ー タ を 書き 込む こと に より 実現 
し じ し \ す 5 

た と えば 、 赤 と 青 の プ レー ン の 同じ オフ セッ ト ア ドレ ス に 書き 込め ば 、 
紫色 が 発色 する の で す 。 これ ら 色 の 混ぜ 合わ せ 方 は 、 表 2-3 の よう に 16 通 り 
あり ます 。 

この 表 2-3 の よう に 、4 つ の プレ ー ン の 重なり 方 は 16 通 りあ り ま す が 、 こ 
と で PC-9801 シ リー ズ で は 4096 色 が 使え を を こと を 思い だ し て くだ さい 。 実 
は 、 こ の 16 種 類 の 色 は 仮り の 色 だ っ た の で す 。 で すか ら 、 こ と これ ら 16 種 類 の 
プレ ー ン の 重なり 方 に 対し て 、 こ の 表 の 通り に 色 を 割り 付け て あっ た だ け 
の こと な の で す 。 し か し 、 ま っ た く 色 が ば ら ば ら で は 、 話 の 進め よう が あ 
り ま せん か ら 、 本 書 で は この 初期 状態 の 色 を 基準 に 話 を 進め て いき ます 。 


表 p-3 

青 | 赤 | 緑 | 輝度 色 青 | 赤 | 緑 
※ 26 ※ ※ 黒 ※ 4 3 〇 薄い 黒 
〇 ペ ペ ペ 青 〇 メ ペ 〇 導 い 青 
0 〇 肖 ※ 赤 ※ 〇 いっ 〇 環 い 赤 
和紀 ※ 4 紫 〇 | 〇 メ 〇 | 薄い 紫 
X 2 〇 沈 緑 6 XX 〇 | 〇 | 明 い 緑 
Or| 〇 | X 水色 〇 | ※ | 〇 | 〇 | 明 い 水色 
メ 〇 KA X 黄色 4 〇 い @, 〇 | 明 い 黄色 
oN 〇 X 2 ニュ 〇 〇 人 ( 明 い 白 
( 注 ) 8 色 モ ー ド の 時 は 、 青 、 赤 、 緑 の 3 プレ ー ン が 使わ れ ま す 。 


き て 、 こ れ ら 16 通 り の 色 、 す な わ ち 絵筆 の 色 を 把握 し た ら 、 次 は 筆 の 動 
か し 方 で す 。 で は 次 の 意味 を 考え て みて くだ さい 。. 
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c_blue + 1: /* 8 ビッ ト 長 の char 型 の Ear ポイ ンタ 姿 数 を 1 増やす */ 
1 blue + 1: /* 16 ビ ッ ト 長 の char 型 の Earx ポ イン タ 変 数 を 1 増やす */ 


こと で 、i_blue, c _blue は 共に 、LIST2-1 で 設定 し た B 面 に 対す る far 
指定 の ポイ ンタ 変数 で す 。B 面 は 初期 状態 で は 青 に 対応 し て いま す 。 両 者 
共に 、B 面 を 指し て いる ポイ ンタ で す 。 

それ ぞ れ は 、 ま っ た く < 同じ よう に 見 えま す が 、 こ れ ら の 違い は 何で し ょ 
うか ? それ は ポイ ンタ の 指し 示し て いる フィ ー ル ド の 扱い 方 で す 。 す な 
わ ち 、 プ レー ン 0 の G.V.RAM を 8 ビッ ト 長 の char 型 で 取り 扱う の か 16 
ビッ ト 長 の int 型 で 扱う の か と いう 違い な の で す 。 こ の 違い だ け は し っ か 
り と 把握 し な いと 混乱 を まね きま す の で 注意 し て くだ さい 。 

ここ に 示し た 式 は 、 式 と し て は どちら も 変数 を 単純 に 十 1 す る と いう 意味 
で す が 、 こ の 場合 の 変数 は ポイ ンタ 変数 で すか ら 式 の 意味 する と ころ が 変 
わっ て きま す 。 ポイ ンタ 変 数 の 場合 、 1 増え る こと は 、 フ ィ ー ル ド 内 の 次 の 
デー タ を 指す こと に な る の で す 。 

で すか ら 、 フ ィ ー ル ド を 8 ビッ ト 長 の char 型 と すれ ば 、 次 の 8 ビッ ト の 
デー タ を 指し 、16 ビ ッ ト 長 の int 型 で あれ ば 、 次 の 16 ビ ッ ト 長 の デー タ を 指 
し て いる こと に な り ま す 。 も し 、 関 数 の エン トリ ー を 指し て いる ポイ ンタ 
で あれ ば 、 次 の 関数 を 指す サ こ と に な る の で す 。 

プロ グラ ム で は 見 か け 上 同じ に 見 えて も 、 結 果 的 に 、 メ モリ の 刻み 方 は 
16 ビ ッ ト 長 の ほう が 、8 ビ ッ ト 長 の 二 倍 の 刻み と な り ま す 。 
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較 ドッ ト か ら 直 線 へ 


言葉 だ け で は わか り に くい の で 、 実 際 に プロ グラ ム を 組み な が ら 、 こ れ 
ら の こと ( 筆 の 動か し 方 ) を 考え て み ま し ょ う 。 

まず 、 グ ラフ ィ ッ クス 処理 の 記念 すべ き 初 め の 一 歩 と し て 、 画 面 の 一 番 
上 に 、 横 方 向 の 直線 を 描く プロ グラ ム を 作っ て み ま し た 。 メ イン 関数 と プ 
ロジ ェクト ファ イル は 次 の よう に な り ま す 。 


LIST2-2.C 


/* 
char 型 の ポイ ンタ を 使っ て 横 に 青い 直線 を 描く 
*/ 


#1nc1ude <graphics .h> /* 必要 と され る ヘッ ダフ ァイル を inc1udqe す る */ 
#1nc1ude く oonto .h> 


extern void grFinit (void) : 外部 関数 の 宣言 */ 
extern void pointer set (vo1d) : 
extern char far *o b]ue: char 型 の ぉ 面 用 ポイ ンタ の 宣言 */ 


void main (vo1d) 
{ 
nt 1 使用 する 変数 の 宣言 */ 
grphintt () : グラ フィ ックス シス テム を 初期 化す る */ 
Pointer set () ポイ ンタ を セッ ト す る */ 
for( = 0: 1 < 80: + 和 1) { 1 ュ ラ イン 分 の 0xEf を 描き 込む */ 
*(c_b1ue + 1) = OxEE: B 面 へ 0xE を 描き 込む */ 
} 
getoch () : キー の 入力 待ち */ 
c1osegraph () グラ フィ ックス シス テム の 終了 と する */ 


LIST2-2.PRJ 


TST2-0 
52 こう 
LTST2-2 
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こと で は 、 プロ ジェ クト ファ イル 名 を 、 LIST2-2.PRJ と し まし た が 、 こ 
れ は 適当 に 設定 し て くだ さい 。 プロ ジェ クト ファ イル を TURBO C へ 登録 
(GRPH+P) し た ら 、 コ ン パ イル 必 実 行 で す 。 以後 、 プ ロジ ェクト ファ イ 
ル 名 は 、main 関数 の ファ イル 名 に 、“"PRJ” と いう 拡張 子 を 付け た も の と 
し ます 。 な お 、 プ ロジ ェクト ファ イル は メイ ン 関 数 と は 別 の ファ イル と し 
て ディ スク 上 に あら か じ め 保 存 し て お きま す 。 

実行 し て みる と CRT 画面 の 上 方 に 青い 横線 が 描 り た は ず で す 。 さ て 、 画 
面 上 の 点 を ドッ ト い いま す が 、 こ の ドッ ト は G.V.RAM の メモ リ の ビッ 
トイ メー ジ に 対応 し て いる と いう の は 、 も う 知 っ て いま すね 。 ド ッ ト ( 点 ) 
の 集まり は 1 本 の 線 に な る の は 書く まで も あり ませ ん が 、 こ こ で メモ リ と 画 
面 と の 対応 を も う 一 度 、 図 1-7 で 確認 し て くだ さい 。 

図 1-7 か ら 、 メ モリ の 並び は 画面 上 横 方 向 に 対応 し 、 画面 の ひと つの ライ 
ン は メモ リ 総 数 Ox50 バ イト ( 十 進 数 で 80) で 構成 され る こと が わか り ま す 。 
また 、0x50 バ イト を 超え た 時 に は 、 メ モリ は 連続 し て いま す が 、 画 面 上 は 
不 連続 と な り 次 の ライ ン の 左側 へ 移っ て いま す 。 こ の こと は 、 画面 上 Y 方 
向 に メモ リ を 刻ん だ 場合 、 Ox50 バ イト の メモ リ 増 加 に な る こと を 示し て い 
ます 。 

以上 の こと を 踏ま え 、LIST2-2 を 参照 し て みる と 、 ど の よう な プロ セス 
で 青い 線 を 描い た の か が よく わか る と 思い ます 。 

と ころ で 、LIST2-2 で は ポイ ンタ 変数 を 直接 動か す (変数 の 数 値 を 増 や 
す ) の で は な く 、i と いう 変数 を 作用 きせ て 間接 的 に 動か し て いま す 。 こ う 
すれ ば 、 各 ポイ ンタ 変数 の 値 は 常に 一 定 値 と な り 、TV 画面 左上 に 固定 され 
る こと に な る か ら で す 。 い わ ば 、 版 画 に お ける 見 当 が つく と いう こと な の 
1 

さて 、 実 際 に G.V.RAM メモ リ に 描き 込ん で いる 命令 は *(c_blue 十 
i) = 0xff で す 。LIST2-1 で 定義 し た 青色 の 絵筆 に 相当 する ポイ ンタ 変数 
は 、i_blue また は 、c _blue で し た 。 ど ちら を 使っ て も 青い 線 を 描く こと 
は で きま す 。 こ こ で 問題 と な る の が 、 と これ ら ポ イン タ の 扱い 方 で す 。 
LIST2-2 で は c_blue を 使い まし た か ら 、 例 と し て i_blue を 使っ た も の 
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を 次 に 示し ます 。 な お 、 16 進 数 1 桁 は 1 章 で も や り ま し た が 4 ビッ ト に 相当 し 
て いま す 。 すなわち 、16 進 数 1 桁 で 画面 上 の 4 ドッ ト ( 点 4 つ 分 ) に 対応 し て 
いる わけ で す 。 


LIST2-3.C 


/* 
nt 型 の ポイ ンタ を 使っ て 横 に 青い 直線 を 描く 
*/ 


#1nc1ude <graphios .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る */ 
#1inoc1ude < く oonio.h> 


extern void grfinit (void) /* 外部 関数 の 宣言 */ 
extern vo1d po1nter set (vo1d) : 
extern 1nt Far *1 b]ue: int 型 の B 面 用 ポイ ンタ の 宣言 */ 


Yo1d main (vo1d) 
{ 
1nt 1 は,/]: 使用 する 変数 の 宣言 */ 
grphtnit () グラ フィ ックス シス テム を 初期 化す る */ 
Pointer set () ポイ ンタ を セッ ト す る */ 
for(1 = 0: 1 < 40: ++1) [ 1 ライ ン 分 0xEEEF を 描き 込む */ 
*(1 blue + 1) = OxFFF。 B 面 へ 0xEEFF を 描き 込む */ 
} 
getch () : キー の 入力 待ち */ 
c1osegraph () グラ フィ ックス シス テム の 終了 と する */ 


LIST2-3.PRJ 


LTST2-0 
ST 受 つ お 
LTST2-3 


と の 例 で は 、 ポ イン タ に 16 ビ ッ ト 長 の int 型 を 使い 筆 を 動か す サル ー プ 回 
数 は LIST2-2 の 半分 の 40 と し 、 さ ら に 、 ポ イン タ の 指し て いる フィ ー ル ド 
に 格納 する 数 値 は 、16 ビ ッ ト 長 の 数 値 で 、2 進 数 で 表す と すべ て が 1 と な る 
Oxffff ( 十 進 数 で 65535) と し て いま す 。 

と の よう に 、 ポ イン タ 変 数 を 換え た 分 、 ル ー プ 回 数 が 半分 と な り ま し た 
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か ら 、 約 半分 の スピ ー ド で 処理 し た こと に な り ま す 。LIST2-2、LIST2-3 
と を 比較 する と 、 こ れ ら ポイ ンタ 変数 の c_blue、i_blue と いう 絵筆 の 動 
か し 方 の 違い が よく 分 か る の で は な いで し ょ うな か 。 
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古 色 の 混ぜ 合わ せ 実 践 編 


次 に 、 色 の 混ぜ 合わ せ を 、 プ ログ ラム を 通し て 実際 に 試し て み ま す 。 
LIST2-4 で す 。 


LIST2-4.C 


/* 


色 の 混ぜ 合わ せ 


#1nc1ude <graphtcs .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る */ 
#inc1ude < く conio.h> 


extern void grF1nit (Vo1d) /* 外部 関数 の 宣言 */ 
extern void pointer set (vo1d) : 


extern nt far *i blue: /* int 型 B 面 用 ポイ ンタ の 宣言 */ 
extern 1nt far メ 1 redz /* int 型 R 面 用 ポイ ンタ の 宣言 */ 
extern 1nt far *i greenz /* nt 型 G 面 用 ポイ ンタ の 宣言 */ 


void main (vo1d) 
{ 


nt 1: /* 使用 する 変数 の 宣言 */ 

grphintt () /* グラ フィ ックス シス テム を 初期 化す る */ 
Pointer set () /* 各 ポ イン タ を 初期 化す る */ 

for(1 = 0: 1 < 40: ++1) [{ /* 1 ライ ン 分 0xEEEE を 描き 込む */ 


*(1 blue + ふ ) = OxEFfE: /* B 面 へ 0xfff で を 描き 込む */ 
*(1 red  + 1) = OxFFFF: /* R 面 へ 0xEffFF を 描き 込む */ 
} 
getoh () : /* キー の 入力 待ち */ 


c1osegraph () グラ フィ ックス シス テム の 終了 と する */ 


LIST2-4.PRJ 


LTST2-0 
LTST2-1 
LTST2-4 
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宣言 部 を 除け ば 、 プ ログ ラム と し て は 、 LIST2-3 に R 面 を アク セス する 
た め の 一 行 を 加え た だ け で す 。 

と の プロ グラ ム が 実行 する こと は 、 最 初 に 青い 線 を 描き 、 青 い 線 と 画面 
上 同じ 位置 (同じ オフ セッ ト ア ドレ ス ) に 、 赤 い 線 を 描く と いう 作業 で す 。 
実際 に 、 こ の プロ グラ ム を 実行 し て みる と 画面 上 に 表れ た 直線 は 紫色 と 
な っ て いる は ず で す 。 こ れ は 、 画 面 上 同じ 位置 に 、 青 、 赤 、 を 発色 し た た 
め 、 青 と 赤 を 混ぜ 合わ せ た こ と に な っ て 紫色 の 直線 と な っ た わけ で す 。 こ 
こと で の ポイ ント は 各色 別 の 絵筆 が 、CRT 画面 上 、 同 じ 位 置 に 線 を 描い た と 
いう こと で す 。 す な わ ち 各 ポ イン タ に 加算 し て いる 数 値 が 同じ な の で す 。 
この よう に 色 を 混ぜ 合わ せる プロ セス は 、CRT 画面 上 同じ 位置 の 必要 な 
プレ ー ン に 対し て 、 数 値 を 書き 込む こと に よっ て 簡単 に 実現 で きる の で す 。 
な お 、 こ の 各 プ レー ン の 組み 合せ 方 に よる 色合い は 表 2-3 を 参照 し て くだ さ 
い 。 

参考 の た め に 、LIST2-4.C に 輝 度 用 の ポイ ンタ を 使っ た 場合 や 、 そ の 他 、 
色々 な 組み 合せ で 調べ みる の も よい 方 法 だ と 思い ます 。 
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較 縦 方 向 に 直線 を 描く に は 


横 方 向 に 直線 を 描き まし た か ら 、 次 に 縦 方 向 の 直線 を 描く こと を 考え て 
み ま し ょ う 。 また 、 こ の 時 の CRT 画面 上 の 直線 の 位置 と し て は 、 一 番 左側 
も し まず 。 

まず 、 方針 を 立て て みよ う で は あり ませ ん か 。 図 1-7 を 参照 する と 、 画面 
上 一 番 左 の 一 番 上 に 対応 する オフ セッ ト ア ドレ ス は 0 で ある こと こと が わか り 
ま が 。 

で すか ら 、G.V.RAM 上 の オフ セッ ト ア ドレ ス の 初期 値 は 0 か ら 始め れ 
ば よさ そう で す 。 で は 、 そ の 次 の 連続 し た ドッ ト は どこ の オフ セッ ト ア ド 
レス に 書き 込め ば よい の で し ょ うか 。 や は り 図 1-7 よ り 、 メ モリ - 上 0x50 刻 ん 
だ 所 が 縦 方 向 に 進ん だ 次 に 位置 する メモ リ で すか ら 、 オ フ セ ッ ト ア ドレ ス 
は 0x50 で ある こと が わか り ま す 。 同様 に 縦 方 向 に 線 を 描く 場合 の アド レス 
は 、 


0, 0x50, 0xA0, 0xFO, …… 


と な り ま す 。 し た が っ て 、 ア ドレ ス 変 化 は G.V.RAM の 初 項 0 に 単純 に 0 
x50 を 加算 し て いく プロ グラ ム と な り そ う で す 。 

これ で メモ リ の 刻み 方 の 方 針 が た っ た よう な の で 。 次 に 、 こ の G.V. 
RAM へ どの よう な 数 値 を 格納 する か が 問題 と な り ま す 。 

と と ころ で 、 メ モリ アク セス の 最小 単位 は 8 ビッ ト 長 の char 型 で す 。 す な 
わ ち ひと つの メモ リ で 8 ドッ ト 分 まとめ て 記憶 する の で す 。 横 方 向 で は 、 こ 
れ で も まっ た く 問 題 が な か っ た の で す が 縦 方 向 の 場合 簡単 で は な さそ う で 
す 。 

実は 、 グ ラフ ィ ッ クス 処理 を する 時 に は メモ リ の アク セス 単位 が 8 ビッ ト 
長 で ある と いう こと が メリ ッ ト で も あり 、 ま た 、 最 大 の 問題 点 と も な っ て 
くる の で す 。 こ こ で LIST2-5.C を 参照 し て くだ さい 。 

LIST2-5.C で は 、 ポ イン タ に char 型 を 使っ て いま す 。 最後 まで の 方 針 
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LIST2-5.C 


縦 に 青い 直線 を 描く 


#1nc1ude <graphics .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る ょ */ 
#inc1ude < く conio .h> 


extern void grEinit (vo1d) : 外部 関数 の 宣言 */ 
extern Yo1d pointer set (vo1d) 
extern Char far *o blue: char 型 の 面 用 ポイ ンタ の 宣言 */ 


void matn (vo19d) 
{ 
mt が 使用 する 変数 の 宣言 */ 
grphtntt () : グラ フィ ックス シス テム を 初期 化す る */ 
Pointer set () ポイ ンタ を セッ ト す る */ 
縦 方 向 へ 0x80 を 描き 込む */ 
for( = 0 ]= 0: 1 < 399: ++1。 ] += 80) { 
*(o_blue + }) |= Ox80: /* B 面 へ 0x80 を 描き 込む */ 
} 
getoh () : /* キー の 入力 待ち */ 
c1osegraph ( ) /* グラ フィ ックス シス テム の 終了 と する */ 


を た て る 前 に プロ グラ ム を 示し まし た が 、 ジ ッ ク リ と プロ グラ ム を 読ん で 
みて くだ さい 。 

ここ と で 、 ひ と つの G.V.RAM メモ リ に 格納 され て いる 8 ビッ ト の 画面 上 
の 対応 を 調べ て み ま し ょ う 。 

図 2-1 で 示し た よう に ひと つの メモ リ 上 8 ビッ ト の デー タ の 内 、 最 上 位 の 
ビッ ト は 画面 上 で は 左側 に 位置 し て いま す 。 

LIST2-5.C で は 一 番 左側 の 線 を 描く こと を 目的 と し て いま すか ら 、 
CRT 上 一 番 左側 に 位置 する メモ リ に 格納 され て いる 数 値 の 最上 位 ビ ピット 
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だ けが 1 で あれ ば よい わけ で す 。2 進 表記 する と 次 の よう に な り ま す 。 


| ed "| he by | 


これ を 16 進 表記 し た も の は 0x80 と な り ま す 。 し た が っ て 、 こ の 数 値 を メ 
モリ に 書き 込め ば よい の で す 。 

し か し 、 さ ら に 注意 が 必要 な の で す 。 メ モリ に 0x80 を その まま 書き 込ん 
だ 場合 、 目 的 の ビッ ト 以 外 は 0 で すか ら 、1 ド ッ ト だ け を 書き 込み た い の に 、 
他 の 無関係 な 7 ドッ ト 分 も 0、 す な わ ち 、 同 じ メ モリ に ある 他 の ビッ ト 情 報 
を 壊し て し まう こと に な る の で す 。 

ここ で ひと つの 工夫 が 必要 に な っ て きま す 。 これ に は 論理 演算 と いう 妨 
妙 な テク ニッ ク を 使う の で す 。 も し 、 LIST2-5.C の プロ グラ ム を 読ん で こ 
の テク ニッ ク に 気が付い た 方 は 、 も う 本 書 を 卒業 し て も よい くら い の テ ク 
ニッ メ ク な の で す 。 

サン プル プロ グラ ム の 中 で G.V.RAM へ 数 値 を 書き 込ん で いる 部 分 に 
着目 し て くだ さい 。 こ こ で は 、 こ の 問題 点 を 解決 する た め に 、 メ モリ に 対 
し て OR を と っ て いた の で す 。 こ うす れ ば メモ リ 上 の 目的 の ビッ ト だ け を 
1 に 、 す な わ ち ドッ ト を 描く こと が で きる の で す 。 


| 


図 6-1 メモ リ の ビッ トイ メー ジ 
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メモ リ と の 演算 に OR を 利用 する 


10000000 Ox80 
OR ) 00000001 = Ox01 
10000001 = Ox81 


縦 線 を 描く 場合 に は 、 こ の 作業 を 画面 上 、 縦 方 向 に 展開 する と と に な り 
ます 。G.V .RAM へ の ポイ ンタ の メモ リ 上 上 Y 方 向 増 分 は 、 初 め の 方 針 の 通 
り 、0x50 で すか ら 、 メ モリ を 0x50 毎 に 刻ん で 、 メ モリ に 格納 すべ き 数 値 で 
ある 0x80 と の OR を と れ ば 、 目 的 の 縦 線 が 描け り る こと に な り ま す 。 

これ ら を 実現 し た の が LIST2-5.C だ っ た の で す 。 で は 、 右 方 向 に 1 ドッ 
ト ず らし た 縦 の 直線 を 描く 場合 に は どう な る の で し ょ うか 。 と これ は 、 ビ ッ 
ト が 右 に ひと つ ず れ た デー タ で ある 0x40 を 描き 込む こと に な り ま す 。 さ ら 
に 右 に ずら す と 0x20 と な り ま す 。 参考 の た め に 、 ひ と つの ビッ ト だ けが 1 と 
な る 8 桁 の 2 進数 と 、16 進 数 の 対応 を 次 に 示し ます 。 

10000000 三 Ox80 
01000000 = 0Ox40 
00100000 Ox20 
00010000 ニ Ox10 
00001000 三 Ox8 
00000100 = 0x4 


00000010 三 0Ox2 
00000001 三 Ox1 


これ で どの よう ちな 横線 で も 、 縦 線 で も 描く こと が で きそう で す 。 で は 、 
これ ら を さら に 発展 させ て 、 任 意 の 座標 (X, Y) に 指定 し た 色 で ドッ ト を 
描く に は どの よう に すれ ば よい の で し ょ うか 。 

この 疑問 に 答え る 前 に 、 座 標 系 が 曖昧 で は いく ら 座 標 (X, Y) を 与え た 
と ころ で 無 意 味 で すか ら 、 こ こ で 画面 を 構成 する 座標 系 を 明確 に し て お き 
ま 電 な あめ 
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田 ドッ ト 座 標 の 定義 


今 、 画面 横 方 向 を X 軸 、 鉛直 方向 に Y 軸 を 考え て みて くだ さい 。 この 場 
合 、 メ モリ の 構造 か ら 画 面 左 上 が この 座標 系 の 原点 と な り ま す 。 ま た 、X 軸 
の 丁 方 向 は 画面 に 向かっ て 右 方 向 と な り 、Y 軸 の 十 方 向 は 画面 下方 向 と す 
る の が 一 般 的 と な り ま す 。 

と ころ で 、 メ モリ の 記憶 単位 が 1 バイ ト (8 ビッ ト ) で ある こと は 、 も う 
知っ て いま すね 。 ま た 、 横 の 1 ライ ン は Ox50 ( 十 進 数 で は 80) バイ ト で 構成 
され て いる こと も 知っ て いま す 。 で すか ら 、X 軸 の 刻み を ドッ ト 単 位 、 す 
な わ ち 、G.V.RAM 上 の ビッ ト 単 位 で 考え る と 、X 軸 方 向 の ドッ ト 総 数 は 
8X80 三 640 と な り ま す 。 

また 画面 上 の ライ ン 数 の 最大 値 は 400 で すか ら Y 軸 方 向 の ドッ ト 総 数 は 
400 (640X200 ド ッ ト モ ー ド 選択 時 は 200) と な り ま す 。 


(0, 0) ( 十 ) 
(639, 0) 

十 

Me (0, 399) 


図 P-P 画面 と ドッ ト 座 標 の 関係 


さて 、 実 際 の 画面 上 に ドッ ト を 表示 する に は 、 ド ッ ト 位 置 を 表し て いる 
座標 (X, Y) か ら 画 面 上 に 対応 する メモ リア ドレ ス を 求め 、 さ ら に メモ リ 
内 の ビッ ト 位 置 を 求め ね ば な り ま せん 。 メ モリ アド レス は XX 座標 と Y 座 
標 か ら 次 の よう に 計算 され ます 。 


メモ リア ドレ ステ X-8 キ YX80 (小数 点 以下 切捨て ) 
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た だ 、 こ れ だ け で は バイ ト 単 位 の メモ リア ドレ ス が 求まる だ け で す 。 ま 
だ 、 メ モリ の 1 記憶 単位 で ある 8 ビッ ト 上 の 、 ど の 位置 に ビッ ト を 配置 する 
か と いう ビッ ト ア ドレ ス を 求め る 問題 が 残っ て いま す 。 

この ビッ ト の 位置 は 、 先 ほど の ドッ ト の XX 座標 を 8 で 割っ た 余り と し て 
求め る こと が で きま す 。 次 の 図 を 参照 し て くだ さい 。 


X 座 標 


Xー8 の 余り 


lb7|16lbslbelssleslmlo 


バイ ト 境 界 バイ ト 境 界 


図 PC-3 メモ リ と ビッ ト ア ドレ ス の 対応 


ビッ ト ア ドレ ス の 取り うる 値 の 範囲 は 8 で 割っ た 余り で すか ら 、 必 然 的 に 
0^-7 と な り ま す 。 この 時 、 ビ ッ ト ア ドレ ス は メモ リ の 記憶 単位 で ある 8 ビッ 
ト の 数 値 の 上 位 方 向 か ら 数 を て いる こと に 注意 し て くだ さい 。 

さて 、 ビ ッ ト を 目的 の 位置 へ 配置 する プロ グラ ム で す が 、 こ れ を 簡単 に 
する た め に は 、 こ こ で コン ピュ ー タ が 取り 扱っ て いる 数 値 で ある 、 2 進数 の 
性 質 を 使う こと に な り ま す 。 基本 的 な 考え 方 と し て は 、 最上 位 が 1 と な っ て 
いる 数 値 、 2 進数 で 10000000、 16 進 数 で Ox80 を 、 ビ ッ ト ア ドレ ス 分 だ け 右 方 
向 に 移動 きせ る こと に な り ま す 。 実際 の 例 で 確か め て み ま し ょ う 。 た と え 
ば 、 ビ ッ ト ア ドレ ス が 1 と する と 描き 込む べき 数 値 は 次 図 2-4 の よう に な り 
まず ま 。 


1 0、0W. 才 し 00 ひ 0 


1 ビット 右 方 向 へ 移動 きせ る 


全 よー 吉 2 飼 性 小作 


図 P-4 ビッ ト ア ドレ ス が 1 の 場合 の 例 
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図 PC-5 ビッ ト ア ドレ ス が の 場合 の 例 


さら に 、 ビ ッ ト ア ドレ ス が 2 の 場合 に は 図 2-5 の よう に な り ま す 。 

で すか ら 、 画 面 上 に ドッ ト を 表示 する に は 、X 座標 を 8 で 割っ た 余り と し 
て 求め られ る ビッ ト ア ドレ ス 分 、 0x80 を 右 方 向 に シフ ト し て 求め られ る 数 
値 と 、 あ ら か じ め 求 め て お いた G.V.RAM 上 の メモ リア ドレ ス と の 間 で 、 
論理 演算 OR を 実行 する と いう こと に な る の で す 。 こ れ ら を プロ グラ ム に 
し た の が 次 の LIST2-6 で す 。 


LIST2-6.C 
extern char far メ o blue: char 型 B 面 用 ポイ ンタ の 宣言 */ 
extern char Far *o red: char 型 R 面 用 ポイ ンタ の 宣言 */ 
extern Char far *C green: char 型 G 面 用 ポイ ンタ の 宣言 */ 
extern char far co 1tsty: char 型 + 面 用 ポイ ンタ の 宣言 */ 


1nt memory_adr, メモ リア ドレ ス 格 納 用 */ 
ト x 座 標 格納 用 */ 
Y/ y 座 標 格納 用 */ 
bit adr, ビッ ト ア ドレ ス 格 納 用 */ 
sign = 1: ドッ ト を セッ ト す る か 否 か の サイ ン 用 */ 


vo1d dot p1ot(int co1or) 
{ 
nt 1/ う : 使用 変数 の 宣言 メ / 
unsigned char 
dot set = 
dot res = 0: 


btt adr =xx& 7: 変数 bit adr ヘ へ x8 の 余り を 求め る */ 
dot set >>= bt_adr: 0x80 を ビッ ト ア ドレ ス 分 右 方 向 ヘ シフ ト す る */ 
dot res ^= dot set: リセ ッ ト 用 デー タ の 作成 */ 


38 第 2 章 実践 グラ フィ ックス 基礎 編 


/* 座標 (x, y) か ら メ モリ アド レス を 求め る */ 
memory_ adr = (x >> 3) キメ 80: 


1f(s1gn == 1) { /* sign が 1 で あれ ば 指定 色 で 点 を 描く */ 
if(co1or & 1) *(C_b1ue + memory adr) |= dot se: 
e18@ *(C_b1ue  + memory_adr) = dot reSs: 
ifE(co1or & 2) *(C_red  + memory adr) |= dot set: 
e1Se *(C_red  + memory adr) &= dot resz 
if(co1or & 4) *(C_green + memory adr) |= dot se 
e1se *(C_green + memory adr) &= dot reSs: 
if(co1or & 8) *(C_1tsty 十 memory_adr) |= dot set: 
e1se *(C 1tsty 十 memory_adr) &= do reSsz 
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田 シフ ト 演 算 子 の 効用 


と の プロ グラ ム で は 、 新 し い テ クニ ッ ク が な 登場 し て いま す 。 そ れ は 、 シ 
フト 演算 子 の 用 法 で す 。 こ の シフ ト 演 算 子 に は 、 物 理 的 意味 と 算術 的 な 意 
味 が あり ます 。 

物理 的 意味 と し て は 、 単純 に 数 値 の 桁 を ずら す と いう こと に な り ま す 。 
そし て 、 こ の 場合 の 数 値 は コン ピュ ー タ に と っ て は 2 進数 の こと で すか ら 、 
2 進数 の 数 値 桁 を ずら すこ と に な る の で す 。 

も う 説 明 す る まで も あり ませ ん が 、 メ モリ に 格納 する 数 値 の 初期 値 を 
Ox80 (2 進数 で は 10000000 と な る ) と し 、X 座標 を 8 で 割っ た 剰余 で 右 方 向 
に シフ ト さ せれ ば 、 正 し い ド ッ ト 位 置 が 設定 で きる と いう わけ で す 。 

な お 、 8 で 割っ た 剰余 は 2 進数 の 性 質 か ら 、7 と の AND に より 求め る こと 
閣 で きま す 。 ち ょ っ と し た テク ニッ ク と し て 覚え て お きま し ょ う 。 

シフ ト 演 算 子 に は 、 も う ひ と つ 算 術 的 な 意味 が あり ます 。 ご 存じ の よう 
に 数 値 手 を シフ ト す る と いう こと は 、 右 方 向 に シフ ト さ せれ ば その 数 値 
の 基数 で 割る こと を 意味 し 、 左 方 向 に シフ ト す れ ば 基数 倍 す る こと に な る 
0 です 。 

2 進数 の 基数 は 2 で すか ら 、 右 方 向 に 一 回 シフ ト さ せれ ば 2 で 割る こと を 意 
味 し 、 左 方 向 に 一 回 シレ フト させ れ ば 2 倍 に な る と いう わけ で す 。 

この 性 質 を 使っ て (X+8) を 実現 し て いる の が 、LIST2-6.C の (X >> 
3) で す 。 こ れ は 3 回 右 方 向 に シフ ト す る と いう 意味 で すか ら 結 果 的 に (X ェ 
8) が 求め ち れ る こと に な る の で す 。 な お 、 こ の 演算 は 、 単 純 に 割り 算 する 
より も は る か に 高速 に な り ま す 。 

と ころ で 、 こ の シフ ト 演 人 算 子 を 使う 場合 に は 、 注 意 し な けれ ば な ら な い 
部 分 が あり ます 。 ま ず 、LIST2-6 .C で 、 初 期 値 Ox80 を 格納 し て いる 変数 dot 
_set の 宣言 部 分 に 着目 し て くだ さい 。 

(unsinged char) と な っ て いま す 。 こ れ は 、 こ の 変数 の 数 値 の 符号 は 考慮 
し な いこ と を 宣言 し て いる の で す 。 実 は 、 符 号 を 考慮 する と 、 右 方 向 へ シ 
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フト し た 場合 に は 、 符 号 を 表す 最上 位 ビ ッ ト が シフ ト し た 所 に 入っ て くる 
の で す 。 も ちろ ん 、char 型 で 宣言 し た 数 値 Ox80 の 最上 位 ビ ッ ト は 1 で すか 
ら 、(unsinged) 宣言 が 必要 だ っ た と いう わけ で す 。 

この よう に 、 シ フト 演算 子 を 使う 場合 は 、 使 用 する 目的 を 十分 に 考慮 す 


る と 同時 に 、 変 数 を 宣言 する 時 に は 、 符 号 の 有無 に も 配慮 し な けれ ば な り 
ませ ん 。 
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回 色 の 成分 チェ ッ ク 


これ で ドッ ト の 位置 は 決定 で きま すか ら 、 次 に 、 色 の 指定 に つい て 話し 
を 進め る こと に し ます 。LIST2-6.C で は 、 指 定 し た 色 が どの プレ ー ン を 
使っ て 表現 さき れる の か と いう 判断 を 、 論 理 演算 の & を 利用 し て 実現 し て い 
ます 。 で は 、 こ の プロ セス は どの よう に 実行 され て いる の か を 考え て み ま 
馬 寂 

まず 、 色 の 種類 は 0 て 15 で し た 。 これ ら の 数 値 は 当然 の こと な が ら CPU 
は 2 進数 と し て 扱っ て いま す 。 これ ら を 2 進数 で 表現 し た 数 値 を 次 に 示し ま 
すか ら 確 認 し て くだ さい 。 


0 …… 00000000 8 …… 00001000 
1 …… 00000001 し 虹 こ な 00001001 
2 …… 00000010 10 …… 00001010 
3 の mt 00000011 11 …… 00001011 
4 …… 00000100 12 …… 00001100 
5 …… 00000101 13 …… 00001101 
6 …… 00000110 14 …… 00001110 
7 mn 00000111 15 …… 00001111 


CPU は 、 こ の よう に 015 の 色 番 号 を 2 進数 と し て 認識 する わけ で す が 、 
ここ で お も し ろ い の は 、 色 を 構成 する プレ ー ン の 発色 の 有る 無し と 、 色 番 
号 を 表す 数 値 の ビッ ト が 1 対 1 に 対応 し て いる と いう こと で し ょ う 。 す な わ 
ち 、 一 番 右側 の ビッ ト が 1 で あれ ば B プレ ー ン が 発色 し て いる こと に な り 、 
右 か ら 2 番 目 の ビ ッ ト が 1 で あれ ば R プレ ー ン が 、 同 様 に 3 番目 は G プレ ー 
ン 、4 番 目 は 1 プレ ー ン が 発色 し て いる と いう わけ で す 。 

で すか ら 変 数 color に 指定 し た 色 が 、B プレ ー ン を 含む か 否 か の チェ ッ 
ク は 次 の 論理 演算 の 結果 を チェ ッ ク す れ ば よい こと に な り ま す 。 
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| 


color & 00000001 1 で B プ レー ン の 発色 有り 
color 多 00000001 ニ 0 で B プ レー ン の 発色 無し 


| 


同様 に R, G, I プ レー ン は 次 の よう に な り ま す 。 


color 層 00000010 = 1 で R プ レー ン の 発色 有り 
color 層 00000010 0 で R プ レー ン の 発色 無し 
color 層 00000100 = 1 で G プ レー ン の 発色 有り 
color 迷 00000100 = 0 で G プ レー ン の 発色 無し 
color & 00001000 三 1 で I プ レー ン の 発色 有り 
color 層 00001000 = 0 で 1 プレ ー ン の 発色 無し 


| 


さて 、 こ こ で 下 文 の 動作 を 思い 出し て くだ さい 。 


if (条件 式 ) { 

く 条 件 が 真 と な る 時 の 処理 : 
) 
else { 

く 条 件 が 偽 と な る 時 の 処理 : 
) 


条件 式 の 評価 は 、( 条 件 式 ま 0) で 真 と な り 、( 条 件 式 0) で 偽 と な り ま 
すか ら 、 簡 単に 色 の 成分 に 従っ た 処理 が で きる の で す 。 す な わ ち 、 式 の 演 
算 の 結果 が 真 ( ま 0) で あれ ば 対応 する プレ ー ン の ビッ ト を セッ ト し 、 偽 (= 
0) で あれ ば 対応 する プレ ー ン の ビッ ト を リセ ッ ト す る わけ で す 。 
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圏 キー の 入力 を 知る に は 


LIST2-6.C の 関数 は 、 任 意 の (X, Y) 座標 に 指定 し た 色 で ドッ ト ( 点 ) 
を 描き 込む 関数 で し た 。 そ こ で 、 こ の 関数 を 利用 し て 、 キ ー の 入力 に 従っ 
て 次 々 と 座標 を 変化 させ ながら ド ッ ト を 打っ て いく こと を 実現 きせ れ ば 、 
どの よう な 直線 で も 描け そう で す 。 と いう わけ で 、 キ ー 入 力 に 従っ て 座標 
を 更新 する 関数 を 定義 し て み ま し ょ う 。 


LIST2-7.C 


extern in 
トイ x 座 標 格納 用 
Y/ y 座 標 格納 用 


xycset ( 


* 方 向 最小 値 */ 
* 方 向 最大 値 */ 
y 方 向 最小 値 */ 
ymax) y 方 向 最大 値 */ 


レン 使用 変数 の 宣言 */ 


switoh(r2 = getch() ) { キー 情報 に 従っ て 座標 を 更新 する */ 
case !1『: 
キオ ァ 
流す 
break: 
caSse '2!: 
+ ザ / 
breakz 


Ca8@e 『'3!': 


break: 
Case "4『: 
ーー 
break: 
case 「6': 
++X/ 
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break: 
Case '7': 

ーー ツァ 

ーー 


break: 


case "8': 


ーーy: 
break: 
Gase !9!: 
ーーy: 
++xx: 
break: 
defau1t : break: 
} 
1E(y > ymax) y = ymax: y 座 標 の 最大 値 の チェ ッ ク 
1E(y < ymtin) Y ーー ymin: y 座 標 の 最小 値 の チェ ッ ク 
1f(x > xmax) X = xmmaxz x 座 標 の 最大 値 の チェ ッ ク 
1E(x < xxmin) XX = xmlnz x 座 標 の 最小 値 の チェ ッ ク 
return (2) : キー 情報 を 関数 の 戻り 値 と する */ 


ここ で は 、TURBO C の 関数 getch() で キー ボー ド か ら の 情報 を 得 て い 
ます 。 そし て 、 方 向 別 の 処理 を する 為 に 、 テ ン キ ー の 1, 2, 3, 4, 6, 7, 8, 
9 を 対応 させ て 、 座 標 (X, Y) の 更新 処理 を し て いま す 。 ま た 、 せ っ か く 
取得 し た キー 情報 は 、 関 数 の 戻り 値 と し て 返し て いま す 。 

これ で 、 キ ー 情 報 に 従っ て 座標 を 更新 する 関数 と 、 座 標 に 従っ て ドッ ト 
を 表示 する 関数 が そろ いま し た か ら 、 そ れ ぞ れ を リン ク さ せ て コン パイ ル 
お よび 実行 と いき まし ょ う 。 main 関数 と プロ ジェ クト ファ イル は 次 の よ 
うに な り ま す 。 


LIST2-8.C 
#1no1ude < く graphtos .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る ォ */ 


extern vo1d grphinit (vo19) : /* 外部 関数 の 宣言 */ 


extern Yo1d pointer set (vo1d) : 


extern void dot p1ot (1int) : 


extern 1nt xyoset (in, 1n,。 nt,。 pn も) : 
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votd matn (vo1d) /* main 関 数 の 定義 */ 
{ 
int keydata /* キー 情報 格納 用 */ 
/* x 座 標 の 最大 値 */ 
/* y 座 標 の 最大 値 */ 
/* x 座 標 の 最小 値 */ 
/* y 座 標 の 最小 値 */ 
co1or / /* 描写 する 点 の 色 の 指定 */ 
grphintt () : /* グラ フィ ックス シス テム の 初期 化 */ 


pointer set () : /* ポイ ンタ の 設定 */ 
while(keydata != Ox1b) { /* [ESC] キ ー の チェ ッ ク ォ */ 
/* 点 の 位置 お よび キー デ -》 設 定 */ 
keydata = xyoset (xmin, xrmmax, ymin, ymax) 
dot_p1ot (co1or) /* 点 の 描写 */ 


} 
c1osegraph () : /* グラ フィ ックス シス テム の 終了 x/ 


LIST2-8.PRJ 


LTST2-0 
LTST2-1 
LTST2-6 
エ LTST2-7 
LTST2-8 
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圏 カー ソル の 表示 


LIST2-8.PRJ を 起動 し て みる と 、 テ ン キ ー に 従っ た 直線 は 自由 に 引け 
る の で す が 、 ド ッ ト を 表示 する 現在 位置 が 不明 な の が 非常 に 見 づら いこ と 
が 分 か る と 思い ます 。 そ こ で 次 の 課題 と し て 、 現 在 の ドッ ト 位 置 を 示す カー 
ソル 表示 へ と 話 を 進め ある と と に し まし ょ う 。 

まず カー ソル の 表示 で 考え を な けれ ば な ら な い の は 、 カ ー ソ ル と 、 す で に 
表示 され て いる 絵 と の 重ね 合わ せ で す 。 こ の 時 の カー ソル は グラ フィ ッ ク 
ス を 描く 為 の カー ソル で すか ら 、 他 の 絵 と 同様 に G.V.RAM へ 表示 し な 
けれ ば な り ま せん 。 当 然 の こと な が ら 、 カ ー ソ ル を 表示 すれ ば すでに G.V. 
RAM 上 に 存在 し て いる 絵 は 壊 され て し まい ます 。 カ ー ソ ル を 移動 させ る 
と 後に は 古い カー ソル の 残骸 が 残っ て いる わけ で す 。 そ こ で 、 な ん ら か の 
工夫 を し て 古い カー ソル の 部 分 を 元 の 状態 に 復元 する こと に な り ま す 。 

ここ で は 最も 単純 な 背景 と の XOR (排他 的 論理 和 ) を と る 方 法 を 試み て 
み ま す 。 次 に XOR の 真理 値 家 を 示し ます か ら 参 照 し て くだ さい 。 


表 p-4 XH の 真理 値 


( 十 ) : XOR 


この 真理 値 家 を よく みる と 又 と Y が 異な れ ば 演算 結果 が 1 と な り 、X と 
Y が 同じ で あれ ば 、0 と な っ て いる こと が わか り ま す 。 

今 、 カ ー ソ ル の デー タ を 又 、 背景 の 絵 を Y と し 、X と Y と の XOR を ほ 
どこ し た 演算 結果 を と し て 考え て み ま し ょ う 。 

この 場合 、Z が カー ソル 表示 に よっ て 破壊 され ん た デー タ と いう こと に な 
り ま す 。 ここ で 問題 と な る の は 、 背景 Y を X と の 演算 XOR に よっ て 破壊 
し た デー タク を いか に し て 元 の Y と いう 背景 の デー タ に 復元 する か と い 


カー ソル の 表示 47 


うこ と で す 。 すなわち えと ZZ か ら Y が 求 ま れ ば よい わけ で す が 、 実は 、 こ 
れ は XOR の 性 質 か ら 次 の よう に 簡単 に 求め ち れ る の で す 。 


Y ェ =X(+)Z 


すなわち 、 カ ー ソ ル の デー タ X と 背景 Y と の XOR を ほど こし た 部 分 Z 
に 、 再び 、 カ ー ソ ル の デー タ X と の XOR を ほど こせ ば 、 元 の 背景 Y が 復 
元 さ れる と いう わけ で す 。 で すか ら 、 カ ー ソ ル の 表示 、 背 景 の 復元 、 い ず 
れ の 処理 に し て も 単純 に 背景 と の XOR を と る プロ グラ ム の み で 実現 で き 
る わけ で す 。 


LIST2-9.C 


extern char far *o b]ue: B 面 へ の ポイ ンタ の 宣言 */ 
extern Char Far *o redz R 面 へ の ポイ ンタ の 宣言 */ 
extern char Far メ o green G 面 へ の ポイ ンタ の 宣言 */ 
extern char far #o 1tsty: ェ 面 へ の ポイ ンタ の 宣言 */ 
int csr on = 0: カー ソル の オン / オ フ の 状態 を 示す */ 


Yo1d curSorxor( 
Eo 議 の カー ソル の メモ リア ドレ ス */ 
nt s。 カー ソル の ビッ ト ア ドレ ス */ 
nt o ) カー ソル の 人 色 */ 


statio unstgned nt 

crsptn[] = { カー ソル 形状 デー タ x/ 
0x8000, 1000000000000000 
0xc000, 1100000000000000 
0xc000, 1100000000000000 
0xe000, 1110000000000000 
0xe000, 1110000000000000 
0xE000, 1111000000000000 
0xE000, 1111000000000000 
0xE800, 1111100000000000 
OxE800, 1111100000000000 
0xfc00, 1111110000000000 
0xEc00。 1111110000000000 
0xfe00, 1111111000000000 
0xff00, 1111111100000000 
0x1800, 0001100000000000 
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0x1800, 0001100000000000 */ 
0x1800 0001100000000000 */ 

] 

union { 
unsigned nt orsz カー ソル デー タ の シフ ト 用 */ 
unsigned char crS2[2]: 

) pt: 

nt 1。 使用 変数 の 宣言 */ 


csr_ on ^= 1: カー ソル の 表示 状態 を 示す x*/ 
for(1 = 0: 1 < 16: ++ エ 。 ]+=79) { 

pt .CrS = OrSptn[i] >> 8: 

3f(c & 1) *(C bl1ue + う ) ^= pt.cr82 [1]: 

if (c 2) *(o_red ]) ^= pt.crs2 [1]: 


ドコ 
if (co 4) *(c_green + ]) ^= Pt.ors2 [1]: 
二 


1f(c & 8) *(o itsty 
++]: 

1f (c 1) *(c bl1ue ]) ^= pt.crs2[0]: 
1E(c g 2) *(c_red ]) ^= pt.crs2 [0]: 
1f(c 4) *(c_green ]) ^= pt.crs2[0]: 
if (c 8) *(c itsty })) ^= pt.crs2[0]: 


]) ^= pt.ors2 [1]1: 


カー ソル 形状 デー タ と し て は 、 ド ッ ト の 状態 を 2 進数 に 換算 し て 、 さ ら に 、 
それ を 16 進 数 に 変換 し た も の を 直接 デー タ と し て 持た せ て いま す 。 原 始 的 
な デザ イン 方 法 で す が カ ー ソ ル 程 度 で あれ ば これ で も 十分 と いえ る で し ょ 
う 。 参考 ほ まで に 2 進数 に よる 表記 を コメ ント と し て 載せ て あり ます 。 

また 、 TURBO C で は 2 進数 が 扱え を な い 為 に 16 進 数 と し まし た が 、 問 題 と 
な る の は 2 進数 の デー タ と 16 進 数 の デー タ と の 対応 で し ょ う 。 こ れ に は 専用 
の 電卓 (2 進 演算 の で きる も の ) な ど が ある と 便利 で す が 、 も し 無い 場合 に 
は 4 ビッ ト ず つ 区 切る こと に よっ て 表 1-1 か ら 以外 と 簡単 に 16 進 数 へ と 変換 
で きま す 。 

カー ソル 形状 デー タ は メモ リ の 記憶 単位 の 二 倍 の int 型 と し 、 シ フト 演 
算 に よっ て ドッ ト 単 位 の 移動 を 実現 し て いま す 。 こ の 時 、 配 列 の 定義 と し 
て unsigned 宣言 が 必要 と な る こと に 注意 し て くだ さい 。 
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と ころ で 、int 型 の 数 値 は 下位 バイ ト 、 上位 バ イト の 順 で メモ リ へ 格納 さ 
れる の で す が 、 こ の 場合 、 メ モリ の 若い 方 が 画面 左側 に 位置 し て いる こと 
か ら 処 理 と し て は 工夫 が 必要 に な っ て きま す 。 す な わ ち 、 こ の まま メモ リ 
に 書き 込ん だ 場合 に は 、 上 位 バ イト と 下位 バイ ト の 左右 の 位置 関係 が 逆転 
する こと に な る わけ で す 。 

そこ で 、 一 了 皇 シ フト し た カー ソル デー タ を 共用 体 と し て 定義 し た 変数 を 
介し て バイ ト 単 位 の 数 値 に 分 割 し て か ら 上 位 バ イト 、 下 位 バ イト と いう 順 
番 で 格納 し て いま す 。 以 上 の こと を 踏ま えて 、 こ れ ら を 組み 合わ せ た プ ロ 
ジェ クト LIST2-10 を 実行 し て み ま し ょ う 。 


LIST2-10.C 


#1nc1ude <graphios .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る */ 
#inc1ude < く bios98 .h> 


#define 


ON 1: 


#define OFE 0: 


extern 
extern 
Gxtern 
extern 


extern 


GXtGrn 
も す 2 


Y/ 


void grphinit (vo1d) : 

Yoid pointer set (vo1d) 

Yotd dot p1ot (nt) : 

nt xyoset (1nt, nt, nt, nt) 
Yo1d ourSorxor(1nt,。 1nt。 nt) 


nt 
x 座 標 格納 用 */ 
y 座 標 格納 用 */ 


memory_adr, メモ リア ドレ ス 格 納 用 */ 

bit adr, ビッ ト ア ドレ ス 格 納 用 */ 

csr on, カー ソル の 現在 の on/oFf 状 態 を 示す す 7〉 */ 

81gn: カー ソル 表示 の 管理 用 サイ ン (1 で on, 0 で oEF) */ 


vo1d matn() 


{ 


KEY TNFO kinE キー 情報 格納 用 */ 
int keydata = 0, キー デー タ 保 存 用 */ 
rnax = 639, x 座 標 最大 値 */ 
yrmax = 399, y 座 標 最大 値 */ 
= 0, x 座 標 最小 値 */ 
y 座 標 最小 値 */ 
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sfsin /* シフ ト サ イ ン 用 */ 

Cmax /* カラ ー 番 号 の 最大 値 */ 

cmin /* カラ ー 番 号 の 最小 値 */ 

co1or : /* 現在 選択 さき れ て いる ドッ トカ ラー */ 


grphinit () : /* グラ フィ ックス シス テム の 初期 化 */ 
Pointer set () : /* 各 プ レー ン へ の ポイ ンタ の 設定 */ 
CurSOrxOr (memory ad ェ / bi 上 adr, Co1or) /* カー ソル の 表示 */ 
while(keydata != Ox1b) { 
keydata = xyoset (xmin,。 xmax, ymin,。 ymax): /* キー 情報 を 取得 */ 
kinf.ommd = 2: /* bos98key へ の コマ ンド の 設定 */ 
sfsin = bios98key (skinf) : /* シフ トキ ー の 情報 を 取り 込む */ 
if(csr on == 1) { /* カー ソル サイ ン が on な ら ば カー ソル の 消去 */ 
CurSOrxrOr (memOory_adr, D1 adr/ Co1or) : 
} 
switoh (keydata) { /* キー 情報 に 従っ て 処理 を する */ 
CaS@e 'x': 
Case 'X!: 
3fF(co1or < く omax 一 1) ++Co1or: 
break: 
Cas@ "2Z': 
Case !2!: 
も で (co1or > Crultn 十 1) --CoTO? 
break: 
defae1t : break: 
} 
if(keydata != ' ") ( /* [space] キ ー が 押 き れ て いれ ば カー ソル を 消去 */ 
FE(sfsin & 1) sign = 0: 
e1se S19n = 1 
dot pl1ot (co1or) : 


CurSOrXO エ (memmory adr, bi adr, Co1or) 


} 
c1osegraph () /* グラ フィ ックス シス テム の 終了 と する */ 


LIST2-10.PRJ 


LTST2-0 
も よら ウー ユ 
LTST2-6 
1TSFT2ー7 
TST2-9 
LTST2-10 
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どう で すか 、 カ ー ソ ル が 表示 され た で け で も グレ ー ド が グッ と 上 が っ た 
の で は な いで し ょ うか 。 実 際 に プロ ジェ クト LIST2-10.PRJ を 走ら せ て 、 
いろ いろ な 直線 を 描い て みて くだ さい 。 また 、 双 , 2Z キー で 色 の 変化 を 、 ス 
ペー スキ ー で カー ソル の ON/OEF を 管理 する よう に し て あり ます か ら 、 
と これら も 同時 に 試し て くだ さい 。LIST2-10.C まで 進ん で くる と 、G.V. 
RAM の 構成 や 仕組 み が か な り ハ ッ キ リ と し て きた の で は な いで し ょ う 
か ? 
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画 沖 り 込み 処理 の 実際 


次 の チャ レン ジ と し て は 、 ゲ ー ム を 作る 上 で 欠か せな い 割 り 込 み 処理 の 
方 へ と 話し を 進め て いき まし ょ う 。 

割り 込み と 聞く と 、 あ まり 良い イメ ー ジ が あり ませ ん が 、 コ ンピュータ 
の 世界 で は 、 欠 か せな いも の な の で す 。 

た と えば 、CPU が ある 処理 を 実行 し て いる 時 に スト ッ プ キー が 押さ れ た 
と か 、 どこ か か ら 通 信 を 受け た と か 、 割り 込み は 様々 な 要因 で 発生 し ます 。 
CPU は これ ら の 要因 に 従っ て 、 割り 込み ベク タテ ー ブ ル を サー チ し 、 要 因 
別 の 処理 へ と 制御 を 移す の で す 。 そ し て 、 割 り 込 み 処理 が 終了 すれ ば 、 ま 
た 元 の 処理 へ と 制御 を 移し 粛々 と 処理 を 続行 し て いき ます 。 

これ ら の 処理 は 、 高 速 に 行わ れる た め に 人 間 に と っ て は 割り 込ま れ た と 
いう より も 、 あ た か も 並列 に 処理 が 進行 し て いく よう に 思え ます 。 割 り 込 
み と は 、 ま さ に 、 割 り 込み を 意識 させ な い 所 に 意義 だ ある の で す 。 


メイ ン 割り 込 メイ ン 割り 込 
ルー チン み 処 理 ルー チン み 処 理 


図 c-6 割り 込み 処理 の 実行 過程 
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較 マウ ス を 組み 込め ば 、 お 絵 書 き ツ ー ル の で き 上 り 


で は 、 割 り 込み 処 理 の 入門 と し て 、 こ こ で は マウ ス を 取り 上 げ て み ま し ょ 
う 。 マ ウス の 割り 込み 処理 を 利用 する こと に よっ て 、 プ ロジ ェクト 
LIST2-10.PRJ を お 絵 書 き ツ ー ル へ と 変身 させ よう と いう わけ で す 。 

まず 、 マ ウス を 使う 為 に は 、MS-DOS の デバ イス ドラ イ バ に マウ ス ド ラ 
バ を 組み 込ま な けれ ば な り ま せん 。 手順 と し て は 次 の よう に な り ま す 。 


手順 1 | CONFIG.SYS へ MOUSE.SYS を 登録 
MS-DOS シ ステ ム を 再起 動 


手順 3 マウ スシ ステ ム の 初期 化 
手順 4 | マウ ス 環 境 の 設定 | 


図 P-7 マウ ス ド ラ イ バ の 組み 込み 手順 


本 書 で は 、 NEC 版 マ ウス ドラ イ バ に 対応 きせ て いま すか ら 、 他 の ドラ イ 
バ を 使う 場合 に は 各々 の ドラ イ バ の マニ ュ ア ル を 参照 し て くだ さい 。 
マウ ス か ら の 信号 は 割り 込み と し て 処理 され ます が 、 マ ウス ドラ イ バ を 
使っ て いる 限り 、 特 に 割り 込み に 関す る 知識 は 要求 きれ ませ ん 。 ま た 、 マ 
ウス ドラ イ バ を 使う と いっ て も 、 直接 使う わけ で は な く 、TURBOC に 付 
属 の 関数 を 介し て 間接 的 に 使う こと に な り ま す 。 で は 、 次 の リス ト を 打ち 
込ん で くだ さい 。 


#1nc1ude <bios98 .h> /* 必要 と きれ る ヘッ ダフ ァイル を inc1ude す る */ 
#1nc1ude < く dos .h> 


extern Char Ear メ o blue: char 型 s 面 へ の ポイ ンタ の 宣言 


extern Char far *C redz char 型 R 面 へ の ポイ ンタ の 宣言 
extern Char far *o green: char 型 G 面 へ の ポイ ンタ の 宣言 
extern char far *o 1tsty: char 型 て 面 へ の ポイ ンタ の 宣言 
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ドッ ト 描 写 用 外部 関数 の 宣言 */ 
カー ソル 表示 用 外部 関数 の 宣言 */ 


extern Yo1d do p1ot (int) : 
extern Yo1d Cursorxor(1nt, 1nt,。 nt): 


extern in 


/* 外部 変数 の 宣言 */ 

/* x 座 標 格納 用 */ 

/* y 座 標 格納 用 */ 

/* 指定 色 格納 用 */ 

/* カー ソル の 表示 また は 消去 を 示す */ 
/* ビッ ト ア ドレ ス x*/ 

/* カー ソル の 表示 状態 を 志す */ 

/* メモ リア ドレ ス x/ 


と ず 2 

/ 
COo1or,/ 
Stgn, 
bit adr。 
CSr onz 


memory adr: 


MOUSE TNTT mstnt: マウ ス 初 期 化 用 構造 体 定義 */ 
レジ スタ 用 構造 体 定義 */ 


マウ ス 情 報 格納 用 構造 体 定義 */ 


/* 
/* 
/* 


union REGS regz 
MOUSE_TNEFO msinf: 


votd msdotp1ot (nt , nt,/ nt, uns1gned, unsigned) 


void mouseinit( 


uns1gned int mxmin。, マウ ス の 可動 範囲 x 方 向 の 最小 値 */ 
マウ ス の 可動 範囲 x 方 向 の 最大 値 */ 
マウ ス の 可動 範囲 y 方 向 の 最小 値 */ 


マウ ス の 可動 範囲 y 方 向 の 最大 値 */ 


unsigned int mmxxmax。 
mymin, 


mymmax ) 


unsigned in 


unsigned int 
コマ ンド を 初期 化 と する */ 
マウ ス 環 境 の 初期 化 */ 
コマ ンド を 関数 の 登録 と する */ 
msdotp1ot を 呼び 出す 条件 */ 
/* 関数 名 msaotp1ot を 登録 */ 


m8int.ommd = 0: 
bios98mouse 1nit (gmsint) 
mSint.ommd = 12: 

mStnt .Ca11 cond = Ox1f: 


mS1nt .mouse Fun = msdotp1ot : 


bios98mouse init(&smsint) : 
msint .ommd = 16: 
mStnt.min h pos = mxminz 
mS1nt .max h DoS = mmmax: 
bios98mouse 1nit (gmsint) 
mstnf.cmmd = 4: リ な た 
mStinf.abs _h crs = mmin: 
mSinf.abS Y crs = myrnin: 
bios98mouse (gmsinf) : 

六 ー mxmin: 


Y = myminz 


bit adr =mxmin & 7: 


/* msdotp1ot を ユー ザー 定義 関数 と する */ 
/* コマ ンド を x 方 向 可 動 範 囲 の 設定 と する */ 
/* x 方 向 の 可動 範囲 の 最小 値 を 指定 する */ 
/* x 方 向 の 可動 範囲 の 最大 値 を 指定 する */ 
/* 可動 範囲 の 設定 */ 

コマ ンド を マウ スカ ー ソ ル 位 置 の 設定 と する */ 
/* マウ スカ ー ソ ル の >x 方 向 初期 値 を 設定 */ 
/* マウ スカ ー ソ ル の ヵ 方 向 初 期 値 を 設定 */ 
/* マウ スカ ー ソ ル の 初期 位置 の 設定 */ 

/* ドッ ト 描 写 用 x 座 標 の 初期 化 */ 

/* ドッ ト 描 写 用 y 座 標 の 初期 化 */ 

/* ビッ ト ア ドレ ス 初 期 化 */ 


memory_adr = (mxxmin >> 3) + mymin * 80: /* メモ リア ドレ ス 初 期 化 */ 
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void mousexyset (nt x0, nt y0) /* マウ スカ ー ソ ル の 位置 を 設定 する */ 
{ 
mstnf.cmmd = 4: /* コマ ンド を マウ スカ ー ソ ル 位 置 の 設定 と する */ 
msinf.abs_h crs = x0: /* x 方 向 位置 を x0 と する */ 
mstnf.abs vY ors = y0: /* y 方 向 位置 を y0 と する */ 
bios98mouse(&msinf) : /* マウ スカ ー ソ ル 位 置 を 座標 (x0, y0) と する */ 
} 


1nt msonoEf = 1: /* マウ ス の オン / オ フ 管 理 用 */ 


vod mouseterm (Vo1d) /* マウ スシ ステ ム の 終了 と する */ 
{ 
msint.cmrmd = 0: /* コマ ンド を 初期 化 と する */ 
bios98mouse_init(smstnt): /* マウ スシ ステ ム の 初期 化 */ 
人 


void msdotp1ot ( /* マウ ス 用 ユー ザー 定義 関数 */ 
int status, /* マウ ス の 状態 */ 
1nt 1ft buton, /* マウ ス 左 ボタ ン の 状態 */ 
1nt rgt buton, /* マウ ス 右 ボタ ン の 状態 */ 
unsigned abs_h cr8, /* マウ ス 用 カー ソル の 水平 軸 座 標 */ 


unstgned abs Y crs ) /* マウ ス 用 カー ソル の 垂直 軸 座 標 メ / 


1f (msonoffF == 1) { /* msonoEf=1 な ら カ ー ソ ル 表 示し 座標 を 更新 */ 
1f(csr_ on == 1) { /* カー ソル が 表示 状態 で あれ ば カー ソル を 消去 */ 


CurSOrXOr (memOry adr,D1t adr,CO1O エ ) 


} 
x = abs_h crs: /* x 軸 カー ソル 位置 を 新た に x 座 標 と する */ 
yY = abs v CrSz /* y 軸 カー ソル 位置 を 新た に y 座 標 と する */ 
1f (rgt buton == -1) { /* 右 ボ タン が オン で あれ ば カラ ー を 変更 する */ 
if(status & 8) { 
二 +CO1O エ : 


if(co1or == 16) color = 0: 


} 
1E(1ft buton == -1) stgn = 1: /* 左 ボ タン が on な ら 点 の 描写 と する */ 
e1se sign = 0: 
dot_p1ot (co1or) : /* sign に 従っ て 点 を 描写 する */ 

CurSOrxOr (memOry adr, 1 上 adr, Co1or): /* カー ソル を 表示 する */ 

} 

e1se 1E(csr on == 1) { /* カー ソル が 表示 され て いれ ば カー ソル の 消去 */ 


CUu エ SOrXOr (memmory adr, b1t adr, CoO1Or) : 
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LIST2-11.C で は マウ ス に 関す る 基本 的 な 関数 を 用 意 し まし た 。 各 関数 
の 機能 は 次 の よう に な っ て いま す 。 


mouseinit … 【 機 能 】 


【 引 数 】 


mousexyset …【 機 能 】 


【 引 数 】 


mouseterm …【 機 能 】 


msdotplot … 【 機 能 】 


【 引 数 】 


マウ スシ ステ ム の 初期 化 及び 環境 の 設定 
NO.1…X 座標 の と りう る 最小 値 
NO.2…X 座標 の と りう る 最大 値 
NO.3…Y 座標 の と りう る 最小 値 
NO.4…Y 座標 の と りう る 最大 値 


マウ スカ ー ソ ル の 表示 位置 の 設定 
NO.1… カ ー ソ ル の X 座標 
NO.2… カ ー ソ ル の Y 座標 


マウ スシ ステ ム の 終了 


マウ ス の 割り 込み に よっ て 起動 きれ る 関数 
で 、 カ ー ソ ル の 表示 と 、 右 の ボタ ン が 押さ れ 
て いれ ば 、 カ ー ソ ル 位 置 に ドッ ト を プロ ッ ト 
する 。 ま た 、 左 の ボタ ン が 押さ れ て いれ ば 、 
カラ ー を 変化 させ る 。 
NO.1… 割 り 込 み の 要因 

NO.2 左 ボ タン の 状態 (0 解放, 一 1: 押 下 ) 
NO.3 右 ボ タン の 状態 (0 解放, 一 1: 押 下 ) 
NO.4…X 座標 

NO.5…Y 座標 


ここ で 中 心 と な る 関数 は msdotplot () で す が 、 こ れ は 、 直 接 コ ー ル する の 
で は な く 、 マ ウス 割り 込み に よっ て 起動 され る 関数 と し て 登録 し ます 。 す 
な わ ち 、 こ の 関数 が 割り 込み 処理 と いう わけ で す 。 ま た 、 カ ー ソ ル は この 
関数 msdotplot() で 表示 する よう に し て あり ます の で 、 マ ウス ドラ イ バ 独 
自 の カー ソル は OFF と し て あり ます 。 カ ー ソ ル の 表示 及び ドッ ト 表 示 の 
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プロ セス は 今 ま で の も の と 変わ り が あり ませ ん 。 
さて 、 プ ロジ ェクト LIST2-10 に だ LIST2-11 を 関連 きせ た も の が 、 プ ロ 
ダ ェ グ ト riS2s12SRRkK で す 。 


LIST2-12.C 


#1nc1ude <graphics .h> /* 必要 と され る ヘッ ダフ ァイル を inc1ude す る ォ / 
#1nc1ude < く dos .h> 
#1nc1ude <bios98 .h> 


#define ON 1 


extern void grphintt (vo1d) /* 外部 関数 の 宣言 */ 
extern vo1d pointer set (Vo1d) 
extern vo1d dot p1ot (nt) : 
extern 1nt xyoset (int,。 1nt。 nt nt) : 
extern Vo1d CurSorXOr(1nt。 nt。 1n) : 
extern void mouseinit ( 

unsigned 1nt, 

unsigned int, 

unsigned int, 

uns1igned nt 
) : 
extern votd mouseterm (vo1d) : 
extern void mousexySet (int, nt): 


extern 1nt 外部 変数 の 宣言 */ 
メッ x 座 標 格納 用 */ 
Y/ y 座 標 格納 用 */ 
memory_ad ェ , メモ リア ドレ ス +*/ 
bit adr, ビッ ト ア ドレ ス +*/ 
CSr on, カー ソル の 表示 状態 を 示す */ 
stgn: カー ソル 表示 の 管理 用 サイ ン (1 で on, 0 で off) */ 


nt ool1or = 4: 


Yo1d main() 
{ 


KEY TNFO kinf: キー 情報 格納 用 構造 体 定義 */ 
nt sfsin, シフ トキ ー 情 報 */ 

keydata =. 0, キー デー タ 管 理 */ 

xmax = 639。 x 座 標 最大 値 */ 
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ymax = 399, y 座 標 最大 値 */ 
xrmin = 0。 x 座 標 最 大 値 */ 
ymin = 0: y 座 標 最 小 値 */ 
grphinit () : /* グラ フィ ックス シス テム の 初期 化 */ 
pointer set () : /* 各 プ レー ン へ の ポイ ンタ の 設定 */ 
mousein1t (xmin, xmax,。 ymin, ymax): /* マウ スシ ステ ム の 初期 化 */ 
CurSorxOr (memory_adr。 bt adr, co1or): /* カー ソル の 表示 */ 
kinf.cmmd = 2: /* 機能 コー ド セ ッ ト x*/ 
whi1e(keydata != Ox1b) { /* [ESC] キー チエ ッ ツク” メ / 
keydata = xyoset (xmin, xmax, ymin, ymax): /* キー 情報 セッ ト */ 
sfsin = bios98key(skinf) : /* シフ トキ ー 情 報 の 取り 込み */ 
disab1e () /* 割り 込み 禁止 */ 
if(csr on == ON) { /* カー ソル サイ ン が on な ら ば カー ソル 消去 */ 
cursorxOr (memory_adr, bit adr, co1or): /* カー ソル の 消去 */ 
1) 
mousexySet (x, Y): /* マウ スカ ー ソ ル 位 置 の 指定 */ 
if(keydata != ' ") {  /* [space] キー が 押さ きれ て いる か の チェ ッ ク x/ 
stgn = sFsin & 1: /* シフ トキ ー 情 報 を セッ ト */ 
sign ^= 1: /* シフ トキ ー 情 報 に 従っ て で ドッ ト の on/ofE を 決定 */ 
dot _p1ot(co1or):  /* sign に 従っ て ドッ ト を プロ ッ ト す る x*/ 
curSorxor (memory_adr, bt adr, co1or): /* カー ソル の 表示 */ 
} 
enab1e () : 割り 込み の 誕 可 */ 
1) 
mouseterm () : マウ スシ ステ ム の 終了 */ 
c1osegraph () : グラ フィ ックス シス テム の 終了 と する */ 


LIST2-12.PRJ 


エ 1TST2-0 
LTST2-1 
LTST2-6 
TST2-7 
LTST2-9 
LTST2-11 
LTST2-12 


ここ で 注意 する の は 、 テ ン キ ー に よっ て 座標 が 変更 され る 場合 で す 。 と 
いう の も 、 マ ウス 割り 込み に よっ て 起動 きれ る 関数 msdotplot() で も 座標 
を 更新 し て いる た め に 、 関 数 どう し が 競合 し て し まう と いう 問題 が 生じ る 
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か ら で す 。 

この 競合 と いう 問題 を 避け る た め に 、 テ ン キ ー に よる 一 連 の プロ セス に 
入る 前 で 割り 込み を 禁止 (disable) し 、 処 理 の 終了 後 、 割 り 込 み を 許可 
(enable) し て いま す 。 す な わ ち G.V.RAM に 対す る 処理 の 一 本 化 を 図る 
わけ で す 。 こ の へ ん の 所 が 割り 込み 処理 の 面倒 な 所 と も 言え を る で し ょ う 。 

実際 に 実行 し て みる と 、 プロ ジェ クト LIST2-12 .PRJ は 、 お 絵 書 き ツ ー 
ル の 基本 形 に な っ て いる こと が わか る と 思い ます 。 す な わ ち 、 こ れ に 色々 
な 和 飾り を 付け る と 、 市 販 の ツー ル と な る わけ で す 。 興味 の ある 方 は 、 ぜ ひ 
チャ レシ ジ し を みて ぐだ さい めい 8 

これ で 第 2 章 は 幕 と な り ま す 。 次 の 第 3 章 で は 、 第 2 章 の 応用 と し て 、TV 
ゲー ム に は 必須 の ツー ル で ある 。 パ ター ン エ ディ タ と いう プロ グラ ム 作 り 
Me 炎 ヤ レッ ジジ する と と ほじ まじ し じょう 。 


1 0 0 Pt 097 


紅 4CaE_gm ww OR) | /* カー ソル る の 9 か 9 すん 寺 ます を 


9 護 に KT Hr み 9+。: に 六 い PC まで 


符 へ で や ee で 9 Mee AM 3 は 
keydate ( き 「 | . 学 委 re we キー 者 きま 拓 で いも か の ホネ タタ や 


pin < sfetn cr 1。 アト は 栓 特選 も う ヤ の て コナ 
/* セフト キー 情報 に 従っ で ドッ ゃ の on/o を ま を 決 宮 ャ ア 


1 


9 か ャ 010 半生 拉 る Ne すす 逢 キ が 


マ 。 


/* で ウメ シス チム の 終了 ャ 7 
/+* ゲ サ ブ イッ 抽 基 あ 人 評 了 する まあ ゃ /( 


トッ ゲス 
れる 8 で メー る 
は ず 
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本 章 で 取り 上 げ る パタ ー ン エディ タ は 、TV ゲー ム に は な く て は な ら な 
い 必 須 の ツー ル と 言え る も の で す 。 し か も 、 パ ター ン エ ディ タ に は TV 
ゲー ム で 使わ れる 基本 的 な テク ニッ ク が 山 ほ ど あ り ま すか ら 、 ウ ォ ー ミ ン 
グ ア ッ プ の つも り で 取り 組ん で くだ さい 。 

も ちろ ん 、 本 書 で 作り あげ る ゲー ム 用 の キャ ラク タ を デザ イン する 為 に 
も 使い ます し 、 その他 に も 色々 と 利用 価値 の ある ツー ル と な り ま す 。 で は 、 
汎用 BOX ルー チン へ と 話 を 進め る こと に し まし ょ う 。 
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圏 BOX ルー チン の 作成 


点 の 集まり は 直線 に な り 、 直 線 の 集まり は 面 と な る わけ で す が 、TV ゲー 
ム に 出 て くる キャ ラク タ は 基本 的 に BOX 型 を し て いま す 。 複雑 に 見 える 
パタ ー ン で あっ て も 、BOX 状 に 並ん で いる デー タ を くり 抜く こと に よっ 
て 表現 し て いる の で す 。 し か も 、% 方 向 は し ば し ば メモ リ の 記憶 単位 で あ 
る 8 ドッ ト を 基本 構成 と し 、Y 方 向 も 、X 方 向 に 合わ せ て 8 ドッ ト 毎 に デザ 
イン する と と が 多い よう で す 。 すなわち 、 縦 横 8 ド ッ ト が 、 パ ター ン を デザ 
イン する 時 の 基本 単位 と な る わけ で す 。 

ここ で は 、 任 意 の G.V .RAM アド レス に 、 任意 の 色 、 任 意 の 大 き さ で 、 
BOX 状 に 描写 する 関数 を 作っ て み ま し ょ う 。 で は 、LIST3-0.C で す 。 


LIST3-0.C 


#1noc1ude < く std1ib .h> 


extern char far *o_ blue: char 型 8 面 へ の ポイ ンタ の 宣言 
extern ohar Far *o red: char 型 R 面 へ の ポイ ンタ の 宣言 
extern ohar Far *o green: char 型 G 面 へ の ポイ ンタ の 宣言 
extern char Far *o 1tsty: char 型 て 面 へ の ポイ ンタ の 宣言 


votd yramdotset ( 

1nt memory_adr, 表示 アド レス */ 

nt col1or, 表示 カラ ー ォ */ 

char dot set, 表示 デー タ ォ */ 
p1aneb, B プ レー ンチ ェ ッ ク 用 
P1aner, R プ レー ンチ ェ ッ ク 用 
p1aneg, G プ レー ンチ ェ ッ ク 用 
planei, ェ プ レー ンチ ェ ッ ク 用 
1oopx。 x 方 向 ルー プ 回 数 */ 
1oopY/ y 方 向 ルー プ 回 数 */ 
shit, 表示 カラ ー シ フ ト 用 */ 
dshift ) 表示 デー タ シ フ ト 用 */ 


dot res: デー タリ セッ ト 用 */ 
まみ 
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for(1 = 0: 1 < 1oopy: ++ せ ) { /* Y 方 向 の ルー プ x*/ 
dot res = ~dot set: /* リセ ッ ト 用 デー タ を 求め る */ 
for(] = 0: ] < 1oopx: ++]}) { /* 方 向 の ルー プ */ 

if (co1orgp1aneb) *(c bl1ue + memory adr + }) dot set: 
e1se *(C_D1ue 十 memory adr 


. 絡 ) dot resz 

ル 。 3 dot se 

計り ) dot resz 

1E(co1orgp1aneg) *(c_green + memory_ adr + }) dot se 
ドコ 
+ 
キ 


1f (co1or&gp1aner) *(C red 十 memory adr 
e1se *(C_ red 十 memory adr 
e1se *(C_green 十 memory adr }) dot res: 
}) dot set: 
}) sg= dot res: 


1f(co1orgp1ane1) *(C 1tSty 十 memmory adr 
e1se *(C 1tsty 十 memory adr 
} 
memory_adr += 80: /* 次 ライ ン の 表示 アド レス を 求め る */ 
dot_set = rot1(dot set, dshift):  /* 表示 デー タ を シフ ト す る */ 
co1or <<= shift: /* 構成 色 の チェ ッ ク 用 デー タ を 求め る */ 


LIST3-0.C の プロ グラ ム の 流れ は 、 ド ッ ト を 叉 方 向 に 展開 し て 線 を 、 さ 
ら に 、 そ の 線 を Y 方 向 に 展開 し て 面 と し て いま す 。 で すか ら 、2 章 で 組ん だ 
ドッ ト 描 写 用 の 関数 を 、 少 し 改造 する だ け で 完成 で す 。 

特に この 関数 で 工夫 し た 所 と いえ ば 、 グ ラフ ィ ッ クス の 色 を 構成 し て い 
る プレ ー ン を 判断 する た め の デ ー タ (planeb-i) を 、 引 数 と し て 可変 に し 
、 衝 た こっ Sp 

と の よう に 、 プ レー ン を 選別 する た め の デ ー タ が 可変 に な る だ け で も 、 
この 関数 の 自由 度 は か な り ア ッ プ し ます 。 また 、G.V .RAM へ 書き 込む た 
め の 変 数 dot set と 、 色 を 管理 し て いる 変数 color に も 、dshift、shift と 
いう 引数 を 作用 きせ て シフ ト す る こと が 可能 (= ニ 0 で は シフ ト さ れ な い ) と 
な っ て いる 所 に も 注意 し て くだ さい 。 で は 、LIST3-0 .C を 実際 に 利用 し て 、 
画面 左上 に 赤い 色 で 四角 形 を 描い て み ま し ょ う 。 
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LIST3-1.C 
/* 
赤い 正方 形 を 描く 
eo 


#1nc1ude <graphtos .h> 
#inc1ude <dos .h> 
#1inc1ude < く bios98 .h> 


extern vo1d grphinit (vo1d) : 
extern Yo1d pointer set (vo1d) : 
extern void yramdotset ( 1nt, nt, char, nt。 nt,。 nt,/ 


も 。 130 も 。 1n も 。 4m ロ を 。 4R セ も )? 


void matn() 
{ 
grphinit () : 
pointer set () 
ゞ ramdotset (0, 2, OxEf,。 1。 2。 4。 8, 10, 10*8,。 0, 0): 
getch () : 
c1osedraph () 


LIST3-1.PRJ 


さて 、 パ ター ン エ ディ タ で は ドッ ト 単 位 で 編集 する わけ で すか ら 、 ド ッ 
ト の 状態 を 的 確 に 把握 し な けれ ば な り ま せん 。 し か し 、 ド ッ ト が 細か いた 
め に 、 画 面 か ら 直接 ドッ ト の 状態 を 把握 する こと は ほとん ど 不 可能 で す 。 
そこ で 、 こ の ドッ ト の 状態 を 1 ドッ ト 毎 に 拡大 表示 し た いと いう 欲求 が 生じ 
る わけ で す 。 

ここ で 、 先 ほど の LIST3-0.C で グラ フィ ックス の 色 を 構成 する プレ ー 
ン を 判断 する 為 の デー タ (planeb--i) を 、 な ぜ 、 引 数 と し な けれ ば な ら な 
い の か と いう 理由 が 分 か っ た の で は な いか と 思い ます が 、 次 の 関数 で は 、 
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G.V.RAM 上 の デー タ を 読み 込ん で 、 色 を 構成 する プレ ー ン を 判断 する 為 
の 情報 と し て いま す 。 こ れ を ビッ ト 単 位 で チェ ッ ク す る と と に よっ て 、 科 
単に G.V.RAM 上 に 展開 し た グラ フィ ックス を 拡大 表示 で きる わけ で す 。 
で は 、 こ の あたり の 所 に 注意 し て 次 の LIST3-2.C へ と 進ん で くだ さい 。 


LIST3-2.C 


#1nc1ude <graphtos .h> 
#1nc1ude < く conio.h> 


extern void vramdotset ( 1nt, nt, char, nt, nt, 31nt。/ 


nt ,。 nt 。 nt。 nt。 nt) 


extern Char far *o bluez 
extern Char far *C red: 

extern Char far *C_qrGGen: 
extern Char far *o 1tStY: 


extern 1nt zamax: /* 編集 エリ ア の x 方 向 最大 値 */ 
extern nt ymax: /* 編集 エリ ア の y 方 向 最大 値 */ 


1nt wwindow = 1。 /* 編集 エリ ア の G.V.RAM ア ドレ ス */ 
kwindow =1 ユ 1 + 40 * 80 * 2+80* 48: 
/* 拡大 表示 エリ ア の G.vV.RAM ア ドレ ス */ 


/* 編集 エリ ア を 拡大 表示 する */ 
Yo1d zoombpitdt (vo1d) 
{ 


nt | b は tb,/ b1tr/ b1t 可 , b1 上 1。 や 1 も 上 も / せ 。 ]/。 K。 m。 n。 O。 Pz/ 
char bdtb, bdtr, bdtg, bdt1: 


k = kwindow + 80: 

m = wwindowz 

P = zamax / 8: 

Eor(o = 0: o < ymaxz ++o) { 
for(n = 0: n く pz +Tn) { 

bitt = Ox80: 

bitb = *(c bue 


bit ェ エ = ニ メ *(o red  + m): 


+† m)j 


bitg = *(c green + m): 
bit1 = メ *(c itsty + m): 
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++Tmz 
Eor()= 0, エ =0: ] く < 8: ++})) 【 
if(1 & 1) YramdotSet ( k++, bt 上 t, Ox0e, bitb, br,/ 
bp1 も 9。 DEE 1 3, 0 0' ) 7 
e1se ゞ ramdotset ( k , bit, Oxe0, bitb, btr, 
も えも な 。 4 も 1。 1。 3。 0。 0 )/ 
bitt >>= 1: 


キキ 3: 


} 
m+= 80 - p: 
k += 80 * 4 - xxmax / 2: 


/* 拡大 エリ ア の 枠 の 描写 */ 
Yo1d dispwaku (vo1d) 
{ 

SN や " 交 0/ - ザ 07 


X0 = 5 

Yy0 = 16*8 - 2: 

1ine(x0, y0, xnax * 4 十 9, y0): 

1ine(xmax * 4 + 9。 y0, xmmax メ 4 9。 y0+ ymax * メ 4 3): 
1ine(xmax * 4 + 9 。y0+ ymax * 4 十 3。 xO0, y0 + ymax * メ 4 十 3): 
1ine(x0, y0 + ymax * 4 十 3。 x0, y0): 


/* 編集 範囲 の 設定 */ 
Yo1d initset (vo1d) 
{ 


while(1) { 
で 三 SCF け 2 
Printf("\ninput box stze (8 < 64) ? "): 
Scanf ("る も d",。 &xmax): 
xmax=((xmax + 7) / 8) * 8: 
C1rSCr() 
1Ff(xmax <= 64 sg xrmax >= 8) break: 
と nm ("mn メメ エロ Du @G エ エ O エ た 天 迷 ") げ が 
} 


YTmaXx mma 交 : 
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この LIST3-2.C で は 、 拡大 表示 する 関数 と 、 編集 の 範囲 を 8 て 64 ド ッ ト 
で 設定 する 関数 、 そ し て 、 拡 大 エリ ア を 見 や すい よう に 線 で 囲む 関数 を 用 
押し まじ だ 。 

きっ そく 、 こ れ ら の 関数 を 組み 合わ せ た プ ログ ラム を 起動 し て み ま し ょ 
う 。 メ イン 関数 と プロ ジェ クト ファ イル は 次 の よう に な り ま す 。 


LIST3-3.C 


/* 


拡大 表示 の テス ト 
*/ 


#inc1ude <graphios .h> 
#1nc1ude <dos .h> 
#inc1ude < く bios98 .h> 


extern void grphinit (void) : 

extern vo1d pointer set (vo1d) : 

extern vo1d yYramdotset ( nt,。 nt, char,。 nt。 nt nt, 
ご kn も 7 mn も 。 よ は n も 。 は nt )/ 

extern vo1d zoombitdt (vo1d) : 

extern vo1d dispwaku (vo1d) : 


void initset (vo1d) : 


@xtern 


extern nt wwindow, kwindow: 


1nt xxmmaX, YTmaX: 


void main() 


{ 


grphinit () : 

Pointer set () 

initset () : 

ゞ ramdotset (wwindow, 2, OxEE, 1, 2, 4, 8, xmax / 8, ymax, 0, 0): 
dispwaku() 
zoombitdt () 
getoh () 


c1osegraph () : 
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LIST3-3.PRJ 


11st2-0 
11 as 上 2-1 
11st3-0 
11S 上 3-2 
11ta 上 3-3 


いか が で し た か 、 少 し は パタ ー ン エディ タ ら し く な り ま し た 。 こ れ で 編 
集 し た ドッ ト の 状態 を 的 確 に 把握 する こと が 可能 と な っ た わけ で す 。 
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古 割り 込み 処理 の 実際 (点滅 カーソル の 表示 ) 


さて 、 カ ー ソ ル 表 示 は 前 に も や り ま し た が 、 パ ター ン エ ディ タ 用 の カー 
ソル と し て は 、 も っ と カー ソル らし く 等 間隔 に 点 減 す る カー ソル を 作っ て 
みた いも の で す 。 一 口 に 等 間隔 と いっ て も 、 処 理 と し て は 以外 と 複雑 に な っ 
て し まい ます 。 た と えば 、 プ ログ ラム で 適当 な ウェ イト を か け て 、 表 示 、 
点滅 を 繰り 返す 方 法 等 が 考え られ ます が 、 こ れ で は 、 プ ログ ラム の 動き と 
し て ま 生 WE が vV9 宙 の と な っ で し まう で し ょ う 。 

そこ で 、 等 間隔 で タイ ミン グ を と る 割り 込み を 利用 する こと に な り ま す 。 
まず 、 プ ログ ラミ ング を 行う 前 に 、 割 り 込み に は どの 様 な も の が ある か を 
次 の 表 で 参照 し て みて くだ さい 。 


表 3-| PO-9801 シ リー ズ 割 り 込 み ベ クタ 


除算 エラ ー 

シン グル ステ ッ プ 割り 込み 
NMI メ モリ パリ ティ エラ ー 
プレ ー ク ポイ ント 割り 込み 
オォ オー バー フロ ー 割 り 込 み 
COPY キー 割り 込み 
STOP キー 割り 込み 

イン ター バル タイ マ 割 り 込 み 
タイ マ 割 り 込み 

キー ボー ド 割 り 込 み 
V-SYNC 割 り 込み 


* H 


* oo ココ の の らら ここ 己 の 


を 
トー 


以上 で す が 、CPU は 、 こ れ ら 割り 込み の 要因 に 従っ て 、 メ モリ の 0000: 
0000』 ご 0000:03FF』 に 書き 込ま れ て いる 割り 込み ベク タ を 参照 し 、 所 定 の 
処理 を 実行 する わけ で す 。 

で すか ら 、 こ れ ら の 割り 込み の うち 等 間隔 に 発生 する 割り 込み を 利用 す 
る こと に な り ま す 。 こ こ で は 10 番 目 の V-SYNC 割り 込み を 利用 し て 等 間 
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隔 に 点滅 する カー ソル を 作っ て み ま す 。 V-SYNC 割り 込み と は 、17/60 秒 毎 
の CRT の 垂直 帰 線 区 間 に か か る 割り 込み の こと で す 。 

と ころ で 、 マ ウス の 割り 込み 処理 の 時 に は 、TURBO C の 関数 に よっ て 
自動 的 に わ し ぃ 一 連 の 処理 を 済ま せ て し まい まし た か ら 、 と て も 楽 で し 
た が 、 実 際 に は 次 の よう な 手順 と な り ま す 。 


手順 1 
手順 2 


手順 3 ‥ 


手順 4 


手順 5 


interrupt 修飾 子 を 用 いて 割り 込み 用 関数 を 定義 する 
対応 する 割り 込み テー ブル の 元々 の ベク タ と 割り 込み マス ク 


レジ スタ の 状態 を 保存 する 


対応 する 割り 込み テー ブル へ 、 目 的 の 関数 へ の ベク タ を 登録 


する 


・ 因 り 込み マス クレ ジス タ の 割り 込み に 対応 する ビッ ト を クリ 


ア し て 割り 込み を 有効 に する 


処理 が 終了 する 時 に は 、 割 り 込 み ベ クタ テー ブル と 割り 込み 


マス クレ ジス タ を 元 の 状態 に 戻す 


で は 、 こ れ ら の 手順 に 従っ て 割り 込み 関数 を 定義 し て み ま し ょ う 。 


LIST3-4.C 


#inoc1ude <dos .h> 


extern int wwindowz 


extern nt kwindowz 


extern Char far *o bl1uez 


extern Char Far *o redz 


extern Char Far *o green: 


extern Char far メ C 1S 世 ァ 


extern Yo1d ゞ ramdotset ( nt, nt,。 ohar, 1nt, int, nt, 


よい も Ak nk も 。 、 さ pt の) 


Yoid Cursor(1nt,。 nt。 nt, nt) 


Yo1d xorvramdt (1nt, int。 nt) : 


nt ex 


@Y 


= 0。 
= デ 0 
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kaku adr 
Co1or 
dot adr 
ha1E 
crSon 
crSStgn 
CrS1inf 


SDacC@: 


unsigned char dot set = Ox80: 
votd dotors (vo1d) : 
nt counter = 0。, 


counter2 = 0: 


/* 点滅 カー ソル 割り 込み 関数 の 定義 */ 
Yotd interrupt idotosr(vo1d) 
{ 

char 1: 


++Counter2 

1f(crsinf == 1) { 
1f (++Counter == 30) counter 
if(counter > 15) ocrson = 0: 
e1se CrSon = 1: 
dotocrS () 

} 

else crSson = 0: 

1 = 0x20: 

outportb(0, 1): 

outportb(0x64, 1): 


Char keepor 
Yo1d 1nterrupt (*keepveotOr) () 
Yo1d nterrupt 1dotcsr(vo1d) : 


/* 点 減 カ ー ソ ル の 初期 設定 */ 
void nitocsr (Yo1d) 
{ 
dot _set = Ox80 >> (ex & 7): 
dot adr = wwindow + ey * 80 + (ex >> 3): 


kaku adr = kwindow + (ex >> 1) + ey * 80 * 4: 
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half = ex & 1: 

keeport = inportb (2) : 
keepvector = getveoct (10) 
Setvect (10, dotosr) : 
disab1e () 

Outportb (2, keeport & OxEb) 
enab1e () 

outportb(0x64。 1): 


/* 点滅 カー ソル の 終了 */ 

Yoid termoSr (Yo1d) 

{ 
Setvect (10, keepveoctor) 
disab1e(): 
outportD (2, keeport) : 
enab1e () 


/* カー ソル の 描写 及び 消去 */ 
votd dotors (void) 
{ 
1f(crson == 0O && crsstgn == 1) cursor( kaku adr, ha1f, 
dot_adr, dot set ): 
else 1f(crson == 1 &g orssign == 0) { 
dot set = Ox80 >> (ex&7) : 
dot _ adr = wwindow + ey * 80 + (ex >> 3): 
Kaku _ adr = kwindow + (ex >> 1) + ey * 80 * 4』 
ha1lf = ex & 1: 
CurSOr (Kaku adr, ha1fF, dot adr, dot set) 


/* カー ソル の 描写 */ 
Yoid Cursor(1nt k,。 nt s, 1nt dot adr, nt dot set) 
{ 


CrSS1gn ^= 1: 

O ェ Y エ amd (do adr, do set, 1): 
1f(S == 0) xorvramdt(k, Oxe0, 5): 
e1se OrVrammdt (k, Ox0e, 5): 
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/* G.V.RAM へ 指定 デー タ を 書き 込む */ 
vo1d xorvramdt (1nt 1, nt ], nt k) 
{ 
nt 1: 
for(1 = 0: 1 < kz ++1。 ュ +=80) { 
*(c blue 1) ^= ココ]: 
*(o red 。 寺 1) ^= コ 3: 


*(C_9reen. 土 1 ユ ) ^ へ = 1, 
*(C_ ttatY + 1 は ) へ = 37 
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田家 り 込み 関数 の 定義 


LIST3-4.C で は 、(idotcsr) と 名 付け た 関数 を 割り 込み 関数 と し て 定義 
し て いま す 。 この 例 の よう に 、 割 り 込み 関数 は 、interrupt 修飾 子 を 付け て * 
その 関数 の 型 を void 型 と し て 宣言 し ます 。 な お 、 こ の 時 の メモ リモ デル に 
制限 は あり ませ ん 。 


割 込 関数 の 定義 


votd tnterrupt test( votd ) { 


} 


また 、 LIST3-4.C で は 、 割り 込み 関数 を 定義 むす る と 共に 、 カ ー ソ ル 表 示 
を する 関数 と 、 こ こ で 定義 し た 関数 を 割り 込み ベク タテ ー ブ ル へ 登録 する 
為 の 関数 Gnitcsr) 、 そ し て 、 割 り 込 みさ クタ テー ブル を 復元 する た め の 関 
数 (termcsr) も 定義 し て あり ます 。 

で は 、 実 際 に LIST3-4.C で 定義 し た 関数 を 、 先 に 組ん だ 関数 と 組み 合わ 
せ て み ま し ょ う 。 メ イン 関数 と プロ ジェ クト ファ イル は 次 の よう に な り ま 
す 。 


/* 
点滅 カー ソル の テス ト 
#inc1ude <graphios .h> 


extern nt wwindowz 


extern void grphinit (vo1d) : 


extern Yo1d pointer set (vo1d) : 


extern Yo1d ゞ ramdotset ( int,。 nt, char,。 nt,。 nt,。 nt, 


ま 和 も 。 生 尼 。 NE。 も 0 も , 4 は DE ) 
extern Yo1d zoombitdt (vo1d) : 
ext@rn Yo1dQd dispwaku (Vo1d) : 
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extern Yo1d nitset (vo1d) : 
extern vVo1d dotosr (nt) : 

extern vo1d initosr (Vo1d) : 
extern vo1d termoSr (Vo1d) : 


extern vo1d interrupt 1dotosr (vo1d) 
1nt xrmax, ymaX: 


Yotd main() 

{ 
9rphinit () : 
Pointer set () 
initset () 
Yramdotset (wwindow, 4, OxfEfF, 1, 2 4, 8, xrmmax / 8, ymax, 0, 0): 
dispwaku() 
zoombitdt () 
initosr(): 
getch () : 
termoSr() 


c1osegraph () 


LIST3-5.PRJ 


11st2-0 
ts 上 2 ター1 
11st3-0 
1s 上 3-2 
11st3-4 
11st3-5 
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較 キー の 入力 を 知る に は (高速 編 ) 


キー ボー ド か ら の 入力 を 知る 方 法 と し て は 今 ま で の よう に 、TURBO C 
の 関数 を 使用 する の が 一 般 的 で あり 、 ま た 、 最 も 簡単 な 方 法 で す が 、 す こ 
し で も 高速 な 処理 を 要求 され る 局面 で は 、 キ ー ボ ー ド 割り 込み を 直接 利用 
する と いう 方 法 を と り ま す 。 特に リア ル タ イ ム ゲ ー ム 等 で は 、 こ の よう な 
手法 が し ば し ば 用 いら れ ま す 。 ま た 、 ひ むれ か ら 作 ろう と し て いる パタ ー ン 
エディ タ の よう に 、 キ ー の 入力 が 限定 され そい る 処理 で も 、 や は り 、 直 接 
利用 する と ツー ル の 応答 性 が 良く な り ま す 。 

ここ で は 、 割 り 込み 処理 の 利用 サン プル と し て の 目的 も 兼ね て 、 こ の キー 
ボー ド 割 り 込 み を 使っ て みる こと に し まし ょ う 。 

さて 、 キ ー ボ ー ド か ら の 割り 込み は V-SYNC 割り 込み と は 異な り 、 等 間 
隔 で は な く 、 キ ー ボ ー ド 上 の キー が 押さ きれ た 、 ま た は 、 離 きれ た 時 に 生じ 
ます 。 そ し て 、 こ の 割り 込み タイ ミン グ を 利用 し て 独自 の 関数 へ と 制御 を 
移す わけ で す 。 

この 時 の キー の 情報 は 、 ポー ト の 41』 よ り 得 ら ちら れ ま す 。 な お 、 そ れ ぞ れ の 
キー と ポー ト 41』 よ り 得 られ る デー タ と の 対応 は 、 表 3-2 を 参照 し て くだ さ 
い 。 

次 の プロ グラ ム で は 、 使 用 する キー の 入力 に 対応 し た 処理 を する と 共に 、 
得 ら れ た キー 情報 は 、 外 部 変数 の keydat へ 格納 し て 、 現 在 の キー 情報 を 他 
の 関数 か ら も 参照 で きる よう に し て あり ます 。 

LIST3-6 .C で は 、 関 数 keyset() を キー ボー ド 割 り 込 み と し て 登録 する 
関数 initkey () と 、 割 り 込 み ベ クタ を 元 の 状態 へ 復元 する 関数 termkey() 
を 定義 し て あり ます 。 特に 、 関数 initkey () を 起動 し た 後 は 、 関数 termkey 
() を 実行 し な けれ ば 、 キ ー の 入力 は 限定 され た まま で すか ら 注 意 し て くだ 
KO。 で は 、 ブ プロ ジェ クト ル LIST9-7.PRUI を 実 和 大 し て み ま し ょ う 。 
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表 9-? キー コー ド 表 


本 
還 凍 ーー:aZmPn 
HHHekkH ト トド 


人 
HEHBB 錠 回国 回 回 国 思 画 
IE 所 Fc | Lehr 本 


1 
1 
1 
1 
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LIST3-6.C 


#1nc1ude <dos .h> 
#inc1ude <bios98 .h> 


extern nt 
@X/ 
SeYz 
xrmin/ 
maX/ 
ymin, 
YTNaX。 
SPaC@, 
CoOun 上 6 エ / 
CrSOn。 
dot _adr, 
kaku adr, 
co1or, 
dot Set: 


extern Yo1d dotors (vo1d) : 


Yotd orsmov(vo1d) 


1nt keydat, 


shift key = 0, 


keysign = 0: 


/* キー ボー ド 割 り 込み 関数 の 定義 */ 
Yo1Qd interrupt keySset (Vo1d) 
{ 


#deF1ine MAKE RTGHT 0x48 
#deFine MAKE LEET 0x46 
#def1ine MAKE UP 0x43 
#def1ine MAKE DOWN 0x4b 
#Qdefine MAKE UP RIGHT Ox44 
#define MAKE UP LEEF〒 0x42 


#define MAKE DOWN RIGHT Ox4c 
#define MAKE DOWN LEFT Ox4a 


#deE1ine MAKE ESC 0x00 
#deFine MAKE SPACE 0x34 
#deEine BREAK SPACE 0xb4 
#deFine MAKE SHTET 0x70 


#QdeFine BREAK SHTFT 0xf0 
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StatuS_ port = Ox43。 
comand port = Ox43, 
data Por = 0x41, 
eo = 0 
commmand = Ox16, 
eotdata = Ox20: 


1f (1nportb(status Port) & 0x38): 


el1se { 
outportD (comand Port,。 Command) > 
keydat = inportDb (data Por) : 
if(keysign == 0) { Switch (keydat) { 

Case MAKE_DOWN: 
1f (+Tey > ymax - 1) ey = yrminz 
break: 

Case MAKE LEFT: 
1f(--ex < xmin) 
break: 

Case MAKE RTGHT: 
3F(++ex > xmax - 1) 
break: 

Case MAKE UP: 
1f(--ey < く ymin) 
break 

Case MAKE DOWN RTGHT: 
1f (++ex > xrmax-1) 
1f (++ey > ymmax-1) 
break: 

Case MAKE DOWN LEFT: 
if(--ex く xrmin) 
if(++ey > ymax 一 1) 
break: 

CaSe MAKE UP RTGHT: 
ifF(++ex > xmax - 1) 
1f(--ey < く yrnin) 
break: 

Case MAKE UP LEEFT:Z 
1f(--ex く xmin) 
1E(--ey < く yrmin) 
breakz 

CaSe MAKE SPACE: 


SPace デ 1 
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break: 
CaSe BREAK SPACE : 
Space = 0: 
break: 
defau1 
break: 
} 
CrSmoY() : 
3f(space == 1) { 
CrSon = 0: 
dotors () : 
if(ex を 1) ゞ ramdotset ( kaku adr + 80, co1or, Ox0e, 
1 27 . 47 871,。 3, 0 0 ) 
e1Se Yramdotset ( kaku adr + 80, co1or, 0xe0, 
1。 2 本 68。 1。 3。 0。 0 ) ヵ 
Yramdotse ( dot adr, Co1or, Qot set。 
1。 2, 4 67 1/17 07 0 )/ 
CrSon = 1: 
dotors () : 
} 
counter = 0: 
} 
1f (keydat == MAKE SHTFT) shift key = 1: 
if (keydat == BREAK SHTFT) shift key = 0: 
} 
outportDb (eoi, eoidata) 


/* カー ソル の オン / オ フ x*/ 
Yo1id orsmoY (Yo1d) 
{ 
crson = 0: 
dotorSs() : 
CrSon = 1: 
dotcrSs() : 


void interrupt (*keepvector9) () : 


Yo1d interrupt keyset (Vo1d) : 


/* キー ボー ド 割 り 込 み の 初期 設定 */ 
void initkey (Yo1d) 
{ 
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keepvector9 = getvect (9) : 
Setvect (9, keyset) 


/* キー ボー ド 割 り 込 み を 元 に も どす */ 
Yo1d termikey (Vo1d) 
{ 


KEY TNEO keyinf: 


Setvect ( 9, keepvector9) : 
keyinf.cmmd = 3: 
bios98key (gkeyinf) : 


LIST3-7.C 


/* 


キー ボー ド 割 り 込 み の テ スト 
が / 
#1nc1ude <graphtcs .h> 


extern vo1d grphinit (vo1d) : 

extern vo1d pointer set (Vo1d) : 

extern vVo1d VYramdotset ( int, int, char, nt, int, nt, 
も も,。 も nt も,。 SE。 0E。 Sn0t )/ 

extern Yo1d zoombpitdt (vo1d) : 

extern Yo1d dispwaku (vo1d) : 

extern Yo1d initset (vo1d) : 

extern vo1d dotosr(1nt) : 

extern Yo1d initosr (Vo1d) : 

extern vo1d termosr (vo1d) : 

extern vo1d initkey (vo1d) : 

extern Void termkey (Vo1d) : 


extern nt xyoset (1nt, int。 nt,。 nt): 


extern vo1d interrupt dotosr (vo1d) 


extern nt 


wwindow, 
keydat, 
SDPaC@: 


xmax = ニ 64,/ 
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Yo1d main() 
{ 
9rphinit () : 


Pointer Set () : 


initset () : 
Yramdotset (wwtndow, 4, OxEF, 1, 2, 4, 8, xmax / 8, ymax, 0, 0): 
dispwaku ( ) 
zoomlbpitdt () : 
nitosr() : 
initkey() 

keydat = 1: 
while(keydat != 0): 
termkey() 
termoSr () 
c1osegraph ( ) 


LIST3-7.PRJ 


実際 に プロ ジェ クト LIST3-7.PRJ を 実行 し て みる と 、 パ ター ン エ ディ 
タ の 基本 構造 が ほとん ど で き 上 が っ て いる こと が わか り ま す 。 し か も 、 キ ー 
の 操作 性 は 合格 点 の は ず で す 。 

LIST3-7.PRJ まで 進ん で くる と 、 だ いぶ パタ ー ン エディ タ ら し く な っ 
て きま し た が 、 ま だ ドッ ト の 色 が 固定 され た まま で す 。 そ こ で 、 ド ッ ト の 
色 を 自由 に 設定 で きる よう に 、 新 た に ドッ ト の 色 を 選択 する 為 の 機能 を 付 
加 す る こと に し まし ょ う 。 


LIST3-8.C 


#defFine CTABLE 1+80*12 +80*82 


#deEine CCURSOR 1+80*20 +80*82 
#deFine CSTGNE 1+80*28 +80*82 
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extern vo1d vramdotset ( 1nt, nt, ohar, int,。 nt。 int, 
0 tn も 。 も mn を / ま PE /。 ま B も ) 

extern 1nt co1or, keydat: 

vo1d cosrmov(1n,。 nt) : 


int kpco1or = 2: 


/* カラ ー 用 カー ソル の 右 へ の 移動 */ 
Yotd roo1or (vo1d) 
{ 
3f (++co1or > 15) co1or = 0: 
CCSrTmOV (CO1Or, kpCO1Or) 


kpco1or = Co1or: 


/* カラ ー 用 カー ソル の 左 へ の 移動 */ 
void 1co1or (vo1d) 
{ 
if(--co1or < 0) co1or = 15: 
CCSrrmOV(Co1or, kpco1or) : 


kpco1or = CoO1or: 


/* カラ ー 用 カー ソル の 移動 */ 
void ccsrmov(int ox, nt kx) 
{ 
OrVramdt (CCURSOR + kx, OxfEe, 7): 
xorVramdt (CCURSOR + ocx, Oxfe, 7): 
yramdotset (CSTGNE, cx, OxEE,。 1, 2, 4, 8。 16,。 7。 0。 
keydat = 1: 


/* カラ ー 選 択 用 テー プル の 初期 セ モット */ 
void initoo1or (Vo1d) 


{ 


本 生生 
for(1 = 0: 1 エ く < く 16: ++1) { 

] = CTABLE+ ュ : 

Yramdotset (], 1, Oxfe, 1, 2, 4, 8。 
] 
orvVramdt (CCURSOR + co1or, Oxfe, 7): 
Yramdotset (CSTGNE, co1or, OxEE, 1, 2, 
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さき て 、 ド ッ ト の 色 を 指定 する 場合 、 ど の 様 な 方 法 を 使う か が 問題 に な り 
ます 。 た と えば 、 色 と 番号 を 対応 きせ て 、 番 号 に よっ て 選択 する と いう 方 
法 な ど が 考え られ ます 。 し か し 、 色 の 数 が 16 色 に も な る と 、 色 と 番号 と の 
対応 を 記憶 する だ け で も 大 変 な 作業 に な っ て きま す 。 

そこ で 、 色 を 確認 し な が ら 選 択 で きる よう に 、 こ こと で は 色 の テー ブル を 
準備 し て お いて 、 カ ー ソ ル の 移動 に よっ て 指定 する こと に し まし た 。 

LIST3-8.C で は 、 色 の テー ブル 表示 用 に 関数 initcolor() 、 色 用 の カー ソ 
ル 表 示 に 関数 ccsrmov() 、 カ ー ソ ル の 右 方 向 移動 用 に 関数 rcolor ()、 そ し 
て 、 カ ー ソ ル の 左 方 向 移動 用 に 関数 lcolor() の 4 つの 関数 を 用 意 し て あり ま 
ず 。 

また 、 こ こ で 注意 し た い の は 、 カ ー ソ ル 表 示 用 の 関数 ccsrmoyv() の 実行 
後 、 キ ー ボ ー ド 割り 込み に よっ て 得 ら れ た 変数 (keydat) の 情報 は 必要 が 
な く な り ま すか ら 、 プ ログ ラム に 影響 を 与え を な い 数 値 (keydat =1) に 書き 
換え て いる と いう こと で す 。 こ の よう な 細か い 配 慮 も 忘れ な いよ うに し て 
くだ さい 。 

で は 、 実 際 に 実行 し て み ま し ょ う 。 メ イン プロ グラ ム と プロ ジェ クト ファ 
イル は 次 の よう に な り ま す 。 


LIST3-9.C 
#inc1ude <graphtos .h> 
#1nc1ude <dos .h> 
#inc1ude <bios98 .h> 


#Qef1ine MAKE RTGHT 0x39 
#define MAKE LEFT 0x38 


extern void grphinit (vo1d) : 


extern Yo1d pointer set (Yo1d) : 


extern Yo1d zoombitdt (Vo1d) : 
extern Yo1d dispwaku (vo1d) : 
extern void initset (vo1d) : 
extern void initosr (vo1d) : 
extern Yo1d termoSr (Vo1d) : 


extern Yo1d initkey (Vo1d) : 
extern Yo1d termikey (vo1d) : 


extern Yo1d roo1or(vo1d) : 


extern vo1d 1co1or (void) : 


extern vo1d initoo1or (vo1d) : 


extern int 


wwindow, 


Co1or, 


keydat: 


1nt xmax = 64。, 


= 64, 
ー 0, 
= 07 


void main() 


{ 


9rphinit () : 


potnter set () : 


initset () : 

dispwaku () 

Zoombitdt () : 

inttosr() / 

initkey () 

initco1or() : 

keydat = 1: 

while(keydat != 0) { 

Switch (keydat) { 
case MAKE RTGHT: 

rco1or() : 
break: 

Case MAKE LEFT: 
1co1or() 
break: 

defau1t : 


break: 


} 
termkey () 
termmCSsr() 


c1osegraph () 
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LIST3-9.PRJ 


プロ ジェ クト LIST3-9.PRJ で は 、 任 意 の キャ ラク タ パ タ ー ン を 編集 で 
きる よう に な っ た わけ で す 。 い わ ば 木 の 幹 が で きた と いえ る で し ょ う 。 し 
か し 、 こ れ だ け で は 、 使 える ツー ル と は 御 世辞 に ちい えま せん 。 すなわち 、 
使え る 状態 に する に は 、 さ ら に 、 枝 や 葉 を 付加 し な けれ ば な ら な い の で す 。 

次 の LIST3-10 .C で は 編集 エリ ア を 一 定 の パタ ー ン で 埋め る 関数 を 組 
ん で いく と と 選 し まし しょう: 


LIST3-10.C 


extern Yo1d dotors (Vo19) : 
extern Void zoombitdt (vo1d) : 
extern Yo1Qd ramdotset ( nt, nt, char, nt, nt, nt, 


る nt, 1mt,。 は nt。 は nt。 pt,』 


extern 1nt 


keys1gn, 

CrSOn, 

CrSinFf, 

COUn キ G エ 』 
void dotcrsoFfF (vo1d) : 
Yo1d dotocrson (Vo1d) : 


/* 編集 エリ ア を 指定 パタ ー ン で 埋め る */ 
Yo1d a11paint (int addres, nt co1or, char data, in shif) 
{ 


nt 1。 ]。 k。 1: 
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dotorsofF () : 

k = 80 - xnmax / 8: 

1 = xmax / 8: 

for(] = 0: ] < ymaxz ++]) { 
for(1 = 0: 1 < 1: ++ エ 。 ++addres) { 

yramdotset (addres, co1or, data, 1, 2, 4, 8, 1。 1, 0 0): 

} 
data = rot1 (data, shifEt) : 
addreSs += K: 

} 

Zoombitdt () : 

dotocrson () 

} 


/* カー ソル を オン と する */ 
void dotorson (Yo1d) 
{ 
crS1nf = 1: 
CrSon = 15 
dotorSs () 
counter = 0: 
keysign = 0: 
} 


/* カー ソル を オフ と する */ 
vo1d dotocrsoff (vo1d) 
{ 


keysign = 1: 
CrSinf = 0: 
CrSon = 0』 


dotcrSs () 


ここ で の ポイ ント は 、 カ ー ソ ル の 取り 扱い で す 。 実は 、 左 上 の 編集 エリ 
ア に は 、 カ ー ソ ル の 位置 を 示す ドッ ト が 点滅 し て いた の で す 。 せ っ か く 凝 っ 
て 作っ た の で すか ら 、 ま っ た く 気 付か な か っ た と いう 人 は いな いで し ょ う 
ね 。 

この ドッ ト の 点滅 は 、 割 り 込 み に よ っ て 処理 され て いま す 。 ド ッ ト は 、 
XOR に よっ て 表示 、 消 去 を 繰り 返し て いま す 。 
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で すか ら 、 こ の ドッ ト の 点滅 を 一 時 的 に スト ッ プ させ な けれ ば な ら な い 
の で す 。 こ の ドッ ト の 点滅 を 管理 し て いる の が LIST3-10.C の dotcrson 
() , dotcrsoff () と いう 関数 で 、 単 純 に コー ル す る だ け と し まし た 。 

編集 エリ ア を パタ ー ン で 埋め る 関数 は allpaint() と な り ま す 。 こ の al 
jpaint () を 利用 し て 、 編集 エリ ア を 5 種類 の パタ ー ン で 埋め る よう に し た の 
が 次 の プロ ジェ クト LIST3-11.PRJ で す 。 な お 、 編集 エリ ア を 埋め る 時 の 
ドッ ト の 人 色 は 、 現 在 選 択 さ きれ て いる ドッ ト の 色 と い うこ と に し まし た 。 


LIST3-11.C 


#1nc1ude <graphios .h> 


#Qdefine MAKE RTGHT 0x39 
#define MAKE LEFT Ox38 
#Qdefine MAKE F1 0x62 
#QdeFine MAKE F2 0x63 
#define MAKE F3 0x64 
#define MAKE F4 0x65 
#deF1ne MAKE F5 0x66 


@extern Yo1d grphinit (Vo1d) : 
extern Yo1d po1nter set (Yo1d) 
extern Yo1d zoombitdt (vo1d) 
extern void dispwaku (vo1d) : 
extern Yo1d initset (Vo1d) : 
extern void dotcsr (int) : 
extern vo1d initosr(vo1d) : 
extern Yo1d termosr(vo1d) : 
extern Yo1d initkey (vo1d) : 
extern vo1d termmkey (Vo1d) : 
extern yo1d roco1or (vo1d) : 
extern Yo1d 1oo1or (vo1d) : 
extern Yo1d initco1or (vo1d) : 


extern Yo1d a11paint (1nt, int,。 char,。 nt) : 


extern nt 
wwindow, 
Co1or, 
keydat, 
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void main() 

{ 
9rPphin1t () : 
Pointer set () : 
initset () : 
dispwaku () 
zoommbitdt () : 
initosr(): 


initkey() 


initoco1or () 

keydat = 1: 

while(keydat != 0) { 
Switch(keydat) { 

Case MAKE RTGHT: 
rCo1or() 
break: 

Case MAKE LEET: 
1co1or() : 
break: 

CaS@e MAKE F1: 
a11paint (wwindow, Co1or, 
break 

Case MAKE F2: 
a11paint (wwindow, 
breakz 

CaSse MAKE F3: 
a11paint (wwindow, 
break: 

CaSe MAKE F4: 
a11paint (wwindow, 
break: 

CaSe MAKE F5: 
a11paint (wwindow, 
break: 

defau1 
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} 
} 
termkey ( ) : 
termoSsr() : 


c1osegraph () : 


LIST3-11.PRJ 


き て 、 プ ロジ ェクト LIST3-11.PRJ の キー 操作 は 、 フ ァ ン クシ ョ ン キ ー 
の f1--f5 と な っ て いま す 。 そ れ ぞ れ 、 ド ッ ト カ ラー を 変更 し て 試し て みて 
くだ さい 。 こ の よう に 、 編 集 エ リア を 埋め る 関数 が 付加 され た だ け で も か 
な り 使 い 勝 手 お が よく な っ た は ず で す 。 フ ァ ン クシ ョ ン 機 能 を さら に 増やし 
て 、 色 々 な アイ デア を 付加 し て みる の も 面白 いか も し れ ま せん 。 

と ころ で 、 実 際 に パタ ー ン を 編集 し て みる と 、 パ ター ン は ひと つ だ け と 
は 限り ませ ん 。 複 数 の パタ ー ン を 編集 する 場合 が ほとん ど で す 。 し か も 、 
以前 に 編集 し た パタ ー ン を 一 部 分 だ け 変 更 し た い 場 合 も 多々 あり ます 。 そ 
こと で 、 編 集 し 終っ た パタ ー ン は どこ か に 退避 させ て 、 必 要 な 時 に 編集 エリ 
ア へ と 再び 呼び 出せ る よう な 構造 に し て お きた いも の で す 。 

この 退避 する エリ ア と し て は 、 当 然 の こと な が ら メ モリ が あげ られ ます 
が 、 編集 し た 絵 を 把握 する と いう 観点 か ら 、 空 いて いる 画面 (G.V .RAM) 
を 利用 する と いう 方 法 が 有利 と いえ ます 。 
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LIST3-12.C 


extern nt 
keydat, 
max,/ 
YTNa 交 / 
wwindow, 
Shift keyz 


extern Char far *o b]ue: 
extern Char far *C red: 
extern Char Far *C qreen: 
extern Char far *C 1tstY: 
extern dotorson (vo1d) : 
extern dotorsofFf (Vo1d) : 
extern ZOOommb1tdt (vo1d) 


void abchange (1nt,。 nt) : 
votd boxcurSo1 (int) : 
void boxmov (Vo1d) 


nt box inf, 
box adr = 
fukugen = 
Seleotw = 
mwindow = 
bx 
by 


/* 
編集 パタ ー ン を 指定 エリ ア へ 退避 、 ま た は 退避 
エリ ア か ら 編 集 エ リア ヘ へ パ ター ン を 読み 込む 

あ / 


votd ptn copy(vo1d) 
{ 


党 和 も / 。 才 。) 擬 の 「 放 

#QdeFine MAKE READ 0x13 
#Qdefine MAKE WRTTE 0x11 
#define MAKE FUKUGEN 0x20 
#Qdefine MAKE ZOOM 0x29 
#QdeF1ne MAKE RTGHT 0x48 
#define MAKE LEFT 0x46 
#deFine MAKE UP 0x43 
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#deFine MAKE DOWN 0x4b 


dotocrsoff(): 
box inf = 1: 
w = 1 
DoxCurSo1 (Dox_adr) : 
whi1e (shift key == 1) { 
Swttoh (keydat) { 
Case MAKE READ: 
CaSe MAKE ZOOM: 
boxcurso1 (box adr) : 
abchange (Fukugen, wwindow) : 
abchange (wwindow, box adr) 
boxcurSo1(box adr) 
1f (keydat == MAKE ZOOM) zoomb1ttdt () 
w = 0: 
keydat = 1: 
break: 
CaSe MAKE _WRTTE: 
jboxcurSo1 (box adr) 
abchange (Fukugen, box adr) 
abchange(box_adr, wwindow) 
boxcurSo1 (box_adr) : 
Ww = 1: 
keydat = 1: 
break 
Case MAKE FUKUGEN : 
boxcurSo1 (box_adr) : 
ifF(w == 0) abchange (wwindow, fukuqen ) 
@e1Se abchange(box_adr, fukugen) 


boxcurso1(box adr) : 
keydat = 1: 
break 
CaSse MAKE RTGHT・ 
3E(++bx > 44 - zxmax / 8) bx = 0: 
boxmmov() : 


break: 
case MAKE LEFT: 
3E(--bx < 0) bx = 44 - zamax / 8: 
boxmov() : 
break: 
Case MAKE DOWN: 
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if(++by > 50 - ymax / 8) by = 0: 
boxmoY() : 
break: 

CaSe MAKE UP: 
1f(--by <0) by = 50 - ymax / 8: 
boxmov() 
break: 


} 
boxcurSo1 (box adr) : 
dotorson () 


/* ボッ クス 型 カ ー ソ ル の 移動 */ 
Yotd boxrmov (void) 
{ 
boxcurso1(boxx adr) 
box_adr = by * 8 * 80 + bx + mwindow: 
abchange (se1ectw, boxx adr) : 
boxcurSso1 (box adr) : 
keydat=1 


extern Yo1d xorvramdt (1nt,。 1nt。 nt) : 


/* ボッ クス 型 カ ー ソ ル の 表示 */ 
void boxcurso1(int k) 
{ 


SN を も 。 35 
1f(box nf == 1) { 
〕 = (ymax - 1) * 80: 
for(1 = 0: 1 < xxmax / 8: ++ エ 1。 ++]) { 
orVramdt(k 二 1, OxEE, 1): 
XxOorVramdt(k + ], OxEE, 1): 
} 
〕) = xmax / 8+Tk+ 79: 
k += 80: 
XOrVramdt (k, Ox80, ymax - 2): 
xorVramdt (],。 0x01,。 ymax - 2): 
} 
e1se box inf = 1: 
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/* b か ら a へ の パタ ー ン の コピ ー */ 
void abchange(int a, nt b) 
{ 
か 21 
Eor(]= 0, k = 0: ] < ymax: ++}) { 
for(1 = 0 1 < sqmax / 8: ++ エ 。 ++k) 
*(c blue + a 十 k) = *(C_blue 
*4G azed。 +† k) = *(C_red 


キ 
+ k) = *(c_green 
+ k) *(C_1tstY 


a 

*(C_green † a 
*(c_ 1tstY † a 

} 

k += 80 - xrmax / 8: 
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還 G.V.RAM 上 の パタ ー ン の コピ ー 


ここ で 、G.V.RAM 上 の パタ ー ン を コピ ー す る 手順 を 考え て み ま す 。 ま 
ず 、 画 面 上 に ある 編集 し た パタ ー ン A を 単純 に A' の 位置 へ と コピ ー す る 
わけ で すか ら 、 そ れ ぞ れ の 、 基 準 と な る アド レス は それ ぞ れ の パタ ー ン 左 
上 の アド レス を 求め れ ば よさ そう で す 。 と な り の アド レス は 単純 に 十 1 す れ 
ば よく 、 1 ライ ン 下 の アド レス は G.V.RAM の 構成 か ら 十 80 す れ ば よい か 
ら で す 。 と ここ で 問題 と な る の は 、 編 集 エ リア の アド レス は 固定 で すか ら 簡 
単に 求 ま り ます が 、 移 動 す べき AlI の アド レス を どの よう に 決定 する か で 
着 。 


図 3-| A を A へ コピ ー す る 


表 3-3 日 OX カー ソル の 操作 方 法 


[shift]+ [ 2 ] | box カー ソル を 下方 向 へ 移動 する 

[shift] 二 [4 ] box カー ソル を 左 方 向 へ 移動 する 

[shift] 二 [6] box カー ソル を 右 方 向 へ 移動 する 

[shift] 二 [ 8] box カー ソル を 上 方 向 へ 移動 する 

[shift] 二 [W] 編集 エリ ア の パタ ー ン を box カ ー ソ ル で 示さ れる エリ ア 

ペン oy 1 

[shift]+[R] box カ ー ソ ル 位 置 の パタ ー ン を 編集 テリア に コピ ー す る 

[shift] 二 [F] 直前 の コピ ビー 動作 に よっ て コピ ー し た パタ ー ン を 元 に 

戻す 

[shift][Z] box カ ー ソ ル の パタ ー ン を 編集 エリ ア へ コピー する と と 
も に 拡大 表示 する 
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そこ で 、LIST3-12 .C で は 、 感覚 的 に わか りや すい box 型 の カー ソル を 
移動 する を こと に よっ て コン ピュ ー タ に 計算 させ る こと に し まし た 。 こ の 時 
の キー の 操作 方 法 は 表 3-3 の 通り と な り ま す 。 

な お 、box 型 の カー ソル を 表示 し た 時 に は 、 編 集 用 の 点滅 カー ソル の 表 
示 は カッ ト し て あり ます 。 で は 、 プ ロジ ェクト LIST3-13.PRJ を 起動 し て 
み ま し ょ う 。 


LIST3-13.C 


#1noc1ude <graphios .h> 


#define MAKE RTGHT Ox39 
#deFine MAKE LEFT Ox38 
#deEine MAKE F1 0x62 
#define MAKE F2 0x63 
#define MAKE F3 0x64 
#define MAKE F4 0x65 
#define MAKE F5 0x66 
#define MAKE SHTFT 0x70 
#Qdefine MAKE ZOOM 0x29 


extern vo1d grphinit (vo1d) : 


extern Yo1d pointer set (vo1d) : 


extern vo1d zoombitdt (vo1d) : 
extern Yo1d dispwaku (Vo1d) : 
extern vo1d initset (vo1d) : 
extern Yo1d dotosr (int) : 
extern void initosr (Vo1d) : 
extern void termcSr (Yo1d) : 
extern Void initkey (Vo1d) : 
extern Yo1d termkey (yo1d) 
extern Yo1d roo1or (vo1d) : 
extern void 1co1or (vo1d) : 
extern void initoco1or (vo1d) : 
extern void a11paint (int, int, char, 


extern Yoid ptn copy (vo1d) : 


extern 1nt 
wwindow, 
Co1or。 
keydat, 
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Spac@: 


1nt xrmax 


void main() 
{ 
grphinit () : 


polnter set () 


initset () dispwaku () : 

zoorbitdt () : 

initosr() : 

initkey () : 

initoo1or () : 

keydat = 1: 

while(keydat != 0) { 
Switch (keydat) { 

case MAKE RTGHT: 
FCo1or () : 
break: 

Case MAKE LEET: 
1co1or () 
break: 

case MAKE F1: 
a11paint (wwindow, 
break: 

case MAKE F2: 
a11paint (wwindow, 
break 

case MAKE F3: 
a11paint (wwindow, 
break: 

Case MAKE F4: 
a11paint (wwindow, 
break: 

Case MAKE F5: 
a11paint (wwindow, 
break: 

CaSse MAKE SHTFT: 

Ptn_ COPY () 
break: 
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case MAKE ZOOM: 
zoombitdt () : 
break: 

defau1 : 
break: 
] 
} 
termkey ( ) 


termoSr () 


c1osegraph ( ) : 


LIST3-13.PRJ 


11st2-0 
1a モ 2-1 
11 st3-0 
118 上 3-2 
11st3-4 
11 st3-6 
11st3-8 
1 導 g も 3-40 
11st3-12 
1 st3-13 


き さ て 、 これ で パタ ー ン エディ タ の 編集 機能 は 最低 限 、 を そろ っ た わけ で す 。 
で も 、 せ っ か く こ こま で 作っ た の で すか ら 、 も う 少 し 編集 機能 を 充実 させ 
た いも の で す 。 そ こ で 、 編 集 エ リア の 回 転移 動 、 平 行 移動 、 上 下 反転 機能 
を 付加 する こと に し まし た 。 な お 、 左 右 の 反転 は 、 回 転移 動 と 上 下 反転 に 
よっ て 実現 する こと が で きま すか ら 、 こ こ で は 機能 と し て は 省 い て あり ま 
す 。 


LIST3-14.C 


extern Char far *o Db]uez: 


extern Char far *C red: 


@xtern Char far *C Ore@nz 


@xteGrn Char Far *C 1 上 SY: 


extern 1nt 


STma 六 / 
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Ymax, 
wwindow, 


fukugen 


extern vo1d dotcrson (vo1d) : 

extern vVo1d dotorsofF (vo1d) : 

extern Void zoombpitdt (vo1d) : 

extern vo1d abchange (int, nt): 

extern Yo1d ゞ rammdotset ( nt 上, int, ohar, 1nt, nt,。 nt, 
まま mt / 1 あみ (3n も , stnt 1nty) 7 


/* 編集 パタ ー ン を 回 転 す る */ 

vod ro11ing(vo1d) 

{ 
rt DD, 502m 7。 寺 /。 ]。 12。 KA TO で O8/ "WW27 
unsigned char n, n2, nb, nr n9/ n1: 


dotorsofE () : 
abchange (Eukugen, wwindow) : 
k =fukugen+ xmax /8- 1: 


o2 = wwindowz 


for(] = 0: ] < ymmax / 8: ++], ++o2) { 
for(]2 = 0, n2 = 0x80: ]2 < 8: ++]2, n2 >>= 1。 Kk += 80) { 
for(1 = 0, n = Ox1, o = o2。 k2 = kz 
1 < xmax / 8 ++1。 --k2, o+= 8 * 80) { 
nb = *(o blue  + Kk2): 
nr = *(C_red + k2): 
ng = *(c green + k2): 


n1 = *(C tsty + k2): 
yramdotset (o, n, n2, nb, nr。 nd。 n1, 1, 8, 1 0): 


Zoombpitdt () : 
dotorson () : 
} 
/* 編集 パタ ー ン を 右 方 向 へ 1 ドッ ト 移 動 す る */ 
void dotshiftr (vo1d) 
{ 
も 北 :. 夫 。 ま 0。 WW。 うす 。 人 。 〇 W ょ 


unsigned char D, エ ,/ 9, 1, kpb, kpPr, KkKP9, kpP1: 
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dotorsoFE() 
abchange (Fukugen, wwindow) : 
@e 。 =xmmax / 8 -1: 
for(] = 0 10 = fukugen, o0 = wwindow: 〕 < ymax: 
++], o0 += 80, 10 += 80) { 
kpb =*(c blue +1i0+ @e): 
kpr =*(c red +10+ 6e): 
kpPg = *(c_ green +1O+ @): 
kp1l = *(o itst マ y+1O + @): 


for( = 0, iw =10。 ow = o0: 1 < xmax / 8: ++ エ 。 ++iw, ++ow) { 


b ら = *(C_ blue + は w)z 

ェ と = *(C red  + 1w)』 

9 = *(c green 十 1w)z 

ユ = *(c itsty + 1w)』 

*(c_b1ue + ow) =b >> 1: 

*(C_red + ow) = r >> 1: 

*(C_ green + ow) =gz>> 1: 

*(C_1tsty + ow) =1 >> 1』 

Yramdotset ( ow,。 Ox1, Ox80, kpb, kpr, 
KPD9, KB1L。 1, 2/-0 ず @ %j 

kpb 

kpr 

kpg 

kp1 


} 
Zoombitdt () : 
dotorson ( ) 


/* 編集 パタ ー ン を 左 方 向 へ 1 ドッ ト 移 動 す る */ 
Yoid dotshift1 (void) 
{ 


nt 1。 @e,。 10。 w,。 ], o0, ow: 
uns1gned ohar  b。 ェ , 9, 1, kpb, kpr, kpg, kp1: 


dotorsoFfF () : 

@e =smmax / 8 - 1: 

for(] = 0, 10 = fukugen, o0 = wwindow: ] < ymax: 
++],。 o0 += 80, 10 += 80) [ 
kpb = *(c blue + 10): 
KPr = *(c red よ る 0) 7 
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kpg = *(c_ green + 10): 
kp1 = *(o tsty + 10): 
for(1 = 0, iw =10+e, ow =o0+ eii< く zxmax / 8: 
++。 --1w, --ow) { 
b = *(c bl1ue 。 + 1w) : 
ェ = *(C red  + 1w)z 
9 = *(c green 十 1w): 
+] = *(c tsty + 1Ww)』 
*(C blue + ow) = D < くく 1: 
*(C_ red  + ow) =r ぐ くく < 1: 
*(c green + ow) =9 す < ぐ < 1: 
*(c tsty 填 ow) = 1 < く < 1: 
yramdotset ( ow, Ox80, Ox01, kpb, kpr, 
た DO。 た p ユ 。 1。 1。 6。 0 ) ぁ 
kpb 
kpr 
kpg 
kp1 


} 
zoommbitdt () 
dotocrson() : 


/* 編集 パタ ー ン を 上 下 に 1 ドッ ト 移 動 す る */ 
Yotd dotshiftud(1nt K) 
{ 


3 も も 。 1。 1。 


dotorsoFfFF () 
if(k == 0) { 
]=80: 
1 = wwindow + ymmax * 80 - 80: 
m = Fukugen: 
} 
e1se { 
]=-80: 
1 = wwindow: 
m = Fukugen + ymax * 80 - 80: 
} 
abchange (Fukugen, wwindow) : 


abchange (wwindow, Fukugen + ]): 
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Eor( も = 0: 1 < xrmax / 8: ++1) { 
*(C blue +] + *(C_ blue +m+ 
* (oswed ps)t *(C_red 、 コ 二 im+ + 


*(C_ green + ] *(C_ green + mm 十 1 


(GO を も et も yr や コキ *(C ユ 上 8 も ザー 束 十 は 


ま 
zoombitdt () : 
dotorson () : 


/* 編集 パタ ー ン の 上 下 を 反転 する 
Yotd udhanten (vo1d) 
{ 
ト 
char mz 


dotcrsoFfF ( ) 

u = 0 

d = (ymax - 1) * 80: 
k = wwindowz 


for( う = 0: ] < ymax / 2: ++}) { 
for(1 = 0: 1 < zamax / 8: ++i。 ++u。 ++d) { 
m=*(C blue + k 二 u): 
えた (Cc_b1ue + k + u) =*(c bue Tk 十 d) 
*(C blue + kd) = mm 
委 みん 4G。 EeeG ギ -K 十 G)j 
を (Ci sed 二 kE 十 nu) = *(G ced+K 二 @): 
*(C_ red + kd す ) = mz 
m = *(C green +kK 十 u): 
*(C_green + Kk 二 u) = メ (c green + k 十 9): 
*(C_ 9reen + kd) = mm: 
0 my え 人 の) は も 9 も E ア ニキ オー キ 7 
*(C_1tsty 十 k 十 u) = *(C は Eaty 寺 k + dQ)? 
*(c itsty+ kd) = mz 
} 
u+= 80 - zamax / 8: 
d -= 80 + xrmax / 8: 
} 
Zoombitdt () : 
dotorson () 


G.V.RAM 上 の パタ ー ン の コピ ー 103 


この プロ グラ ム で は 、 ビ ッ ト 操 作 を し て いま すか ら 、 コ ンピュータ の 扱っ 
て いる 数 値 が 、 2 進数 で あっ た と いう こと を 忘れ て し まう と 、 ほ と ん ど 、 プ 
ログ ラム と し て は 分 か り に くい も の と な っ て し まい ます 。 で は 、 さ ら だ に 、 
次 の LIST3-15.C に 進ん で くだ さい 。 


LIST3-15.C 


#1nc1ude <graphios .h> 


#define MAKE CR 0x39 
#define MAKE CL 0x38 
#Qdefine MAKE F1 0x62 
#def1ine MAKE F2 0x63 
#Qdefine MAKE F3 0x64 
#define MAKE F4 0x65 
#Qdefine MAKE F5 0x66 
#define MAKE SHTFT Ox70 
#def1ine MAKE ZOOM Ox29 
#Qdefine MAKE ROLL Ox13 
#def1ne MAKE RTGHT 0x3c 
#Qdefine MAKE LEFT Ox3b 
#def1ine MAKE UP 0x3a 
#Qdefine MAKE DOWN Ox3qa 
#Qdefine MAKE HANTEN Ox16 


extern void grphinit (vo1d) 


extern Yo1d potnter set (vo1d) : 


extern Void zoombitdt (vo1d) 
extern void dispwaku (vo1d) : 
extern void initset (vo1d) : 
extern void dotosr(1nt) : 
extern Vo1d initosr (vo1d) 
extern void termcsr(vo1d) : 
extern Yo1d initkey (vVo1d) : 
extern void terrmkey(vo1d) : 
extern Yo1d rco1or (Vo1d) : 
extern void 1co1or (vo1d) : 
extern void initoo1or (vo1d) : 
extern void a11paint (1nt。 nt, char,。 #nt): 
extern vo1d ptn copy(vo1d) : 
extern vo1d ro11ing (vo1d) : 
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extern Yoid dotshift ェ (Vo1d) : 
extern vo1d dotshift1 (vo1d) : 
extern Yo1d dotshiftud (1nt) : 
extern vo1d udhanten (vo1d) : 


extern int 
wwindow。 
Co1or, 
keydat, 
SPacC@: 


= 64。 
= 64。 
= 0, 
= 0: 


Yoid matn () 
{ 
grphinit () : 
pointer set () : 
nitset () : 
dispwaku () : 
zoombpitdt () : 
initosr () : 
initkey () 
nitoo1or() 
keydat = 1: 
while(keydat != 0) { 
Switch (keydat) { 
CaSse MAKE CR: 
rCo1or() : 
break: 
Case MAKE CL: 
1co1or () : 
break 
case MAKE F1: 


a11paint (wwindow, co1or, OxfFE, 0): 


break: 

CaSe MAKE F2: 
a11paint (wwindow,。 co1or, 0xaa。 1): 
break: 

Case MAKE F3: 
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a11paint (wwindow, co1or, Ox55, 1): 
break 


case MAKE F4: 


a11paint (wwindow, co1or, 0Oxaa, 0): 
break: 

case MAKE F5: 
a11paint (wwindow, co1or, Ox55, 0) 
break: 

CaSe MAKE SHTET: 
Ptn copy(): 
break: 

case MAKE ZOOM: 
zoombitdt () 
break: 

case MAKE ROLL : 
ro11ing() 
break: 

case MAKE RTGHT: 
dotshiftr() : 
break: 

case MAKE LEFT: 
dot shift1 () : 
break: 

CaSe MAKE UP: 
dotshiftud (0) : 
breakz 

CaSe MAKE DOWN: 
dotshiFftud (1) : 
break: 

case MAKE HANTEN: 
udhanten () 
breakz 

defau1t : 
break: 


} 

termkey(): 
termCSr() 
c1osegraph () 
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LIST3-15.PRJ 


1 も る セタ ー0 
11st2-1 
1 8 も 3-0 
118 上 3-2 
118St3-4 
11s3-6 
11st3-8 
1 も asE3 っ 10 
1 上 3-12 
118t3-14 
11s 上 3-15 
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較 グラ フィ ッ ク 画 面 の セー ププ ロ ー ド 


パタ ー ン エディ カタ も よう 人 や る ぐ 全 下げ がり ます 5 20 ダ ターン エ ブ ティク タ と は 
て は 、 プロ ジェ クト LIST3-15 .PRJ で 終わ り で す が 、 作成 し た パタ ー ン を 
ディ スク へ セー ブ し た り ロ ー ド し た り で き な け れ ば 、 ツ ー ル と し て は 不 完 
全 で す 。 こ こ で は 、 フ ァイル 管理 に つい て 話 を 進め て いき ます 。 

G.V.RAM 上 に ある 編集 し た デー タ を 単純 に ディ スク へ ファ イル と し 
て 保存 し た り 、 あ る い は 、 デ ィ ス ク に ある ファ イル を G.V.RAM へ ロー ド 
する わけ で す が 、G.V.RAM 上 の デー タ も 他 の メモ リ 上 の デー タ と な ん ら 
変わ る 所 は あり ませ ん 。 で すか ら 、 操 作手 順 と し て は 次 の よう に な り ま す 。 


手順 1: ファ イル を オー プン する 
手順 2: ファ イル を セー ブ プ ロー ド す る 
手順 3 : ファ イル を クロ ー ズ する 


この 時 、 ロ ー ド する 場合 で あれ ば ロー ド 先 の メモ リ が G.V.RAM で あ 
り 、 セ ー ブ す る 場合 で あれ ば 、 デ ー タ の 存在 する メモ リ が G.V.RAM で あ 
あと いう だ け で す 。 

な お 、 フ ァイル に は 管理 する た め の ポ イン タ で ある ファ イル ポイ ンタ が 
あり 、 す べ て の ファ イル は この ファ イル ポイ ンタ を 使っ て 管理 し て いま す 。 
LIST3-16.C で は 関数 fopen() で ファ イル を オー プン し 、 関 数 fgetc() , 
fputc() で ディ スク へ の 読み 書き を 、 関 数 fclose() で ファ イル の クロ ー ズ を 
実現 し て いま す 。 


LIST3-16.C 


#1no1ude < く dir.h> 
#1nc1ude く 1o .h> 


#ino1ude く stdio .h> 
#1inc1ude く conio .h> 
#inoc1ude <bios98 .h> 
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#Qdefine P SHTET 1 


ex も ern nt mwindowz 
GxtGrn Char Far XC D1uGz 
extern Char Far *C redz 


@xt@rn Char fa エ *C drGGnz: 


exxtern Char Far *C 1tSY: 


Yo1d fmes(int, char []) 
votd fi1e disp(ochar []) 


int getname(char []): 


/* グラ フィ ッ ク 画 面 ア デー タ を ディ スク へ セー プ す る +*/ 
gsave (void) { 

char fname[64]: 

FTLE *SFD ょ 

Char Oz 

Sn も も 。 ]。 K。 ユ 。 そ 81D7 


Esin = 0: 
while(1) { 
よー 3 
while(i) { 
Printf("\n\ninput fi1e name\n"): 
1 = getname (fname) : 
3f(1 == 1) { 
fsin = 2: 
break: 
} 
1f (1 == 2) fi1e disp(fname) : 
el1se 1=0: 
} 
1f(fsin == 2) break: 
if(access(Ename, 0) == 0) { 
PrintF( "\n$*s is a11ready exist \ncontinue (Y-N) ? ",/ 
fname ): 
while(1) { 
c = getoh () : 
if(c == "nn! | Cc == "N') { 
fsin 
break 
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1f(C == "Y' | C =="y") 
Printf("Y") : 


break: 


} 
1F(Fsin == 2) break: 
} 
e1se printfF("save file name = $s ", fname) 
SEp = fopen (fname, "wb") : 
1f (NULL == sfFp) { 
fsin = 3: 
break: 
} 
for(1 = 0, 1 = mwindow: 1 < 400: ++1。 1 ユ +=80) { 
for(}) = 0。 k =1: }] < (80 - mwindow) : ++], ++k) { 
fsin = 1: 
1f (fputo(*(c_b1ue + k), sFp) EOF) breakz 
1f (fputc(*(c_red + k) , SFp) EOF ) break: 
1f (fputc(*(c green + k) , SFDp) EOF) break: 
1f (FEputo(*(C tsty 十 k), SEp) EOF) break: 
Esin = 0: 
} 
1f(fsin == 1) break: 
} 
Fc1ose (sfp) : 
break: 
} 
fmes (Esin, fname) 


return(fsin): 


/* エラ ー メ ッ セ ー ジ の 表示 */ 
void fmes(int fsin, char fname [] ) 
{ 


C1r8or () 
gotoxy(1, 5): 
Switch(fsin) { 
CaSe 0: 
PrintE("* norma1]1 end *"): 
breakz 
CaSe 1: 


PrintE("\7* abnormal1 end *"): 
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break: 
CaSe 2: 
PrintF("X* CanSe1 *"): 
break: 
Ca8@e 3: 
PrintF("\7 cannot open Fi1e : も 8S"。 
break: 
defau1: 


break: 


/* ファ イル 名 の 入力 */ 
int getname(char name [] ) 
{ 
も も" も すけ 
= 0』 
for(1 = 0: 1 < 40: ++ ュ i) { 
while(1) { 
name [1] = getche () : 
1f (name [1] == 0Ox8) { 
まそ (1 > 0) 一 も は: 
Printf(" \D"): 
} 
e1se break: 
} 
1f (name [1] == Ox1b) { 
P エ tn も E( で) 
3 = 1 ュ 1: 
break: 
} 
if (name [1] == 0xd) { 
Printf("\n"): 
name[i] = 0: 


break: 


] 
本 63 1 の "か 
for(1 = 0: < 40: ++1) 人 { 


1f (name [1] == 0) break: 


if (name [1] == '*! || name[i] == "3?!) 


本 。 


Fnamme) 


{ 
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Printf("\ninput fi1e name = ss\n",。 name): 
} 


return (]) : 


/* ファ イル の 表示 */ 
void fi1e disp(char name [] ) 
{ 

4n も 3 るり 

Struot Ffb1k ffFb1k: 


1f (findfirst(name, sffFb1k, 0) == 0) { 
while(1) { 
Printf("\n も s", EEb]k .Ff name): 
if (Findnext (sffb1k) != 0) break: 
printf("\tss", Ffb1k .ff name): 
if (Findnext (sgFFb1k) !=0) break: 


/* グラ フィ ッ ク 画 面 デ ー タ を ディ スク か ら ロ ー ド する ォ */ 
g1oad(void) { 

char fname[64]: 

FTLE *SfD: 


IE の 7 さよ ッ ココ の 区 7 上 8 COAG, 9 も ロ / 
Struot ffFb1k ffDb1k: 
KEY ITNEO keyinf: 


fsin = 0: 
while(1) { 
すす me 3: 
while(1) { 
Printf("\n\ninput fi1e name\n"): 
1 = getname (Fname) : 
if (1 == 1) { 
fsin = 2: 


break: 
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(1 == 2) Ei1e disp(fFname) 
else i = 0: 
} 
1fF(Fsin == 2) break: 
PrintE("1oad fi1e name = を Ss ",。 Ename) 
SFp = fopen(Ename, "rb"): 
1f (NULL == sfp) { 
fsin = 3: 
break: 
} 
keyinf.cmmd = 3: 
bios98key(skeyinf) : 
Eor(1 = 0, 1] = mwindow: 1 < 400: ++1,。 ユ +=80) { 
for(] = 0, k =1: ] く < (80 - mwindow) : ++], ++k) { 
fsin = 1: 
1f((c = fFgetc(SfFDp) ) EOF) break: 
*(C_b1ue + k) = Cz 
1E((c = fgetc (SFDP) ) EOF) break: 
* (C reQd 十 K)=C:z 
1f((c = Egetoc (SFp) ) EOF) break: 


*(C_9reen 十 K) = Cz 

1f((c = FEgeto (SFDp) ) EOF) break: 
*(C_ tstY 十 K) = oz 

fsin = 0: 


} 
1fF(fsin == 1) break: 
keyinE.cmmd = 2: 
if(bios98key(gkeyinE) & P SHTFT) break: 
} 
fc1ose(SfDp) 
break: 
} 
keyinf.cmmmd = 3: 
bios98key (skeyinF) : 
Emes (Fsin, fname) : 
return (Esin) : 
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圏 ファ イル 名 の 入力 


き て 、 フ ァイル の セー プ ブロード の 手順 は 、 そ れ ぞ れ TURBO C の 関数 
を 使う だ け で すか ら 問 題 あり ませ ん が 、LIST3-16 .C で 問題 と な る の は 、 
ファ イル 名 の 入力 方 法 で し ょ う 。 人 間 に は ミス が つき も の で すし 、 人 間 は 、 
わが まま で すか ら 入 力 の 途中 で 中 断 し た い 場 合 も ちや ある か ら で す 。 

そこ で 、LIST3-16 .C で は 比較 的 自由 度 を 持た せ た フ ァイル 名 入力 専門 
の 関数 getname を 用 意 ま し た 。 特徴 は 、 一 文字 ずつ キー 情報 を 取り 込ん で 
引数 の 配列 name[] へ 格納 し て いる こと で す 。 と いう の も 、[ESC] キー が 
入力 され た 場合 に は 速やか に 処理 を 中 断 す る よう に し た いか ら で す 。 ま た 、 
配列 で すか ら [BS] キー が 入力 され た 時 に は イン デック ス を 単純 に 一 1 する 
と と に よっ て 以前 の キー 入力 値 を 取り 消す こと が で きる と いう メリ ッ ト も 
あり ます 。 さら に 、 ワ イル ドカ ー ド の 入力 も チェ ッ ク で きる よう に 、 リ ター 
ン 情報 を セッ ト し て いま す 。 な お 、LIST3-17 .C は キー ボー ド 割 り 込 み を コ 
ント ロー ル す る た め の も の で す 。 


LIST3-17.C [ 


#inc1ude <dir.h> 
#inc1ude く 1o.h> 
#1inc1ude < く stdio .h> 
#1nc1ude < く conio.h> 


extern termkey (vo1d) : 
extern initkey (vo1d) : 


extern dispwaku (vo1d) : 


extern void initoo1or (vo1d) 
extern Void dotorsoFfFF (Void) : 
extern void dotcrson (Void) : 
extern Yo1d ゞ ramdotse ( nt, nt, Char, nt 上, int, nt, 


まま か も 。 nt 。 は n も 。 は n も 。 は n も )/ 


extern int 


@X/ 
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@Y ァ 
vo1d sidec1r (int) : 


/* ファ イル 操作 初期 設定 */ 

void fstart (vo1d) 

{ 
c1rsor () : 
dotorsofF () 
Sidec1r(399): 
termkey () : 
textCurSor(DTSP CURSOR) 


/* ファ イル 操作 終了 時 処理 */ 
Yoid fend (votd) 
{ 
dispwaku(): 
nitco1or() : 
dotorson () : 
textCurSor (NODTSP CURSOR) : 
initkey() 
outportb(0x64, 0): 


/* 左側 画面 の 消去 */ 
Yo1d sidec1r(int ゞ ) 
{ 
ゞ ramdotset (0, 0, OxfEf, 1, 2, 4, 8, 36, Y,/ 


/* 編集 エリ ア の サイ スズ 変更 用 */ 
votd ohange box (vo1d) 
{ 


Fstar () : 

ex = 0: ey = 0: 
initset () : 

fend() 


0, 
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圏 ディ レク トリ 内 の ファ イル の 探索 


ファ イル 名 に ワイ ルド カー ド が 入力 され た 場合 に は 、 指 定 し た ワイ ルド 
カー ド に だ 従っ て 画面 上 に ファ イル を 表示 させ な けれ ば な り ま せん 。 と いう 
わけ で 、 こ の 処理 を 実現 し て いる の が file _disp() と いう 関数 で す 。 この 関 
数 の 流れ は 、 次 の よう に な っ て いま す 。 


1. 関数 findfirst で 、 初 め に 一 致す る ファ イル 名 (ソイ ルド カー ド を 
含む ) を 探索 し 、 存 在 す れ ば 画面 に を その ファ イル 名 を プリ ント す 


る 。 


2. 関数 findnext で 、 次 に 一 致す る ファ イル 名 を 探索 する 。 一 致す る 
ファ イル が 存在 すれ ば プリ ント し 再び 次 に 一 致す る ファ イル 名 を 
探索 する 。 も し 、 一 致す る ファ イル が 存在 し な けれ ば 処理 を 終了 


と する 。 


と こと で の ポイ ント は 、 フ ァイル 名 の 入力 と 、 デ ィ レ クト リ 内 の ファ イル 
表示 、 フ ァイル ポイ ンタ に よる ファ イル の 入出 力 管理 の 3 つ に し ぼら れ ま 
す 。 この 3 つ さ え 理 解 で きれ ば LIST3-16.C は 卒業 で す 。 で は 実際 に これ ら 
を 組み 込ん だ プロ ジェ クト LIST3-18 .PRJ を 実行 し て み ま し ょ う 。 な お 、 
グラ フィ ッ ク デ ー タ を ロー ド す る 時 の 中 断 は [SHIFT] キー と し まし た 。 


#Qdefine MAKE CR 
#define MAKE Ch 
#define MAKE F1 
#define MAKE F2 
#def1ine MAKE F3 
#Qdefine MAKE F4 
#define MAKE F5 


#define MAKE SHTFT 
#define MAKE 2OOM 


LIST3-18.C 


#inc1ude <graphtos .h> 


0x39 
0x38 
0x62 
0x63 
0x64 
0x65 
0x66 
0x70 
0x29 
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#QdeFine MAKE ROLL Ox13 
#deFine MAKE RTGHT Ox3c 
#defEine MAKE LEFT Ox3b 
#QdeFine MAKE UP 0x3a 
#deFine MAKE DOWN Ox3q 
#def1ne MAKE HANTEN Ox16 
#define MAKE LOAD 0x25 
#define MAKE SAVE Ox1e 
#QdeFine MAKE CHANGE Ox2b 


extern void grphinit (vo1d) : 
extern Yo1d ponter set (vo1d) : 
extern Yo1d zoombitdt (vo1d) : 
extern Vo1d dispwaku (vo1d) : 
extern vo1d initset (vo1d) : 
extern vo1d dotosr(1int) : 
extern Void initosr(Vo1d) : 
extern vo1d termcsr (vo1d) : 
extern void initkey (vo1d) : 
extern void termkey (vo1d) : 
extern Vo1d rco1or (vo1d) : 
extern votd 1co1or (vo1d) 
extern void initco1or (vo1d) : 
extern Yo1d a11paint (int, int, char,。 1nt) : 


extern Yo1d ptn copy (vo1d) : 


extern vo1d ro111ing (Vo1d) : 
extern votd dotsh1ift ェ (vo1d) : 
extern vo1d dotshift1 (vo1d) : 
extern vo1d dotshiftud(int) : 
extern vo1d udhanten (Vo1d) : 
extern Yo1d gsave (Vo1d) : 
extern vod g1oad (vo1d) : 
extern vo1d fstart (Vo1d) : 
extern Vo1d fend (vo1d) : 
extern Yo1d ohange box(vo1d) : 


extern int 
wwindow, 
Co1or。 
keydat, 
SPaC@: 
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void main() 
{ 
grphinit () : 
Pointer set () : 
initset () 
dispwaku() : 
zoombitdt () : 
initcsr(): 
initkey () : 
initco1or() 
keydat = 1: 
while(keydat != 0) { 
Switch (keydat) { 
case MAKE CR: 
rco1or() : 
break: 


case MAKE CL: 
1co1or () : 


break: 
Case MAKE F1: 
a11paint (wwindow, Co1or。 
break: 
Case MAKE F2: 
a11paint (wwindow, 
break: 
case MAKE F3: 
a11paint (wwindow, 
break: 
case MAKE F4: 
a11paint (wwindow, Co1or。 
breaky 
Case MAKE F5: 
a11paint (wwindow, 
break: 
Case MAKE SHTEFT: 
ptn_Copy () : 
break: 
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CaSe MAKE ZOOM: 
Zoomlpitdt () : 
break: 

Case MAKE ROLL: 
ro111ng() : 
break: 

case MAKE RTGHT: 
dot shift ェ () : 
break: 

case MAKE LEFT: 
dot shifFt1 () 
break: 

Case MAKE UP: 
dotshiFtud (0) 
break: 

Case MAKE DOWN: 
dotshiFtud (1) : 
break: 

Case MAKE HANTEN: 
udhanten () : 
break: 

Case MAKE LOAD : 
Fstart () : 
91oad() 
fend() 
break 

Case MAKE SAVE : 
Fstart () : 
9Save () : 
fend(): 
break: 

Case MAKE CHANGE : 


change_ box() : 


break: 
defau1t : 
break: 


} 
termkey () : 
termoSr () : 


c1osegraph ( ) : 
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LIST3-18.PRJ 


11st2-0 
よせ st2-1 
13gst3-0 
11st3-2 
3 導 8E3- す 
まま 8 も 3-6 
11st3-8 
11st3-10 
上 at3 こ 12 
11st3-14 
11s モ 3-16 
公 さ あ も ウー よ 7 
11st3-18 


本 書 で は サン プル プロ グラ ム と いう こと で 機能 的 に は 、 か な り 省 いた も 
の と な っ て し まい まし た 。 

し か し 、 こ れ だ け の 機能 が あれ ば 、 本 書 で 作成 する ゲー ム で は 十分 と い 
える で し ょ う 。 最 後に 、 パ ター ン エ ディ タ の 締め くく り と し て 2 章 で 作成 し 
た 、 マ ウス に よる 、 お 絵描き ツー ル と ドッ キン グ き させ て み ま し ょ う 。 当然 
の こと な が ら 、 マ ウス と マウ ス ド ラ イ バ (mouse.sys) が 必要 と な っ て きま 
す 。 で は 、 メ イン 関数 と プロ ジェ クト ファ イル を 打ち 込ん で 起動 し て みて 
くだ さい 。 


LIST3-19.C 


#inc1ude <graphtocs .h> 
#inc1ude <dos .h> 


#define MAKE CR 
#deFine MAKE Ch 0x38 
#define MAKE F1 0x62 
#define MAKE F2 0x63 
#define MAKE F3 0x64 
#define MAKE F4 0x65 
#define MAKE F5 Ox66 
#define MAKE SHTFT Ox70 
#define MAKE ZOOM Ox29 
#define MAKE ROLL Ox13 
#deFine MAKE RTGHT 0x3c 


| 
| 
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#QdeFine MAKE LEFT Ox3b 
#deFine MAKE UP 0x3a 
#define MAKE DOWN 0x3d 
#define MAKE HANTEN Ox16 
#define MAKE LOAD Ox25 
#Qdefine MAKE SAVE Ox1e 
#Qdef1ne MAKE CHANGE 0x2b 


extern nt 
wwindow, 
mwindow, 
COo1or。 
keydat, 
memory adr, 
msonofE。 
bit adr, 
CSr on, 


SDPaC@: 


extern void grphinit (Vo19) : 
extern Yo1d pointer set (vo1d) 
extern yotd zoombitdt (Yo1d) : 
extern Yo1d dispwaku (Vo19d) : 
extern Yo1d initset (Vo1d) : 
extern Yo1d dotosr (int) 
extern Void initosr (vo1d) : 
extern Vo1d termosr (Vo1d) : 
eXxtern Yo1d initkey (vo1d) : 
extern vo1d termikey (vo1d) 
extern Vo1d roco1or (Vo1d) 
extern Void 1co1or (vo1d) 
extern vo1d initco1or (vo1d) : 
extern vo1d a11paint (nt,。 int, char, 
extern Yo1d ptn copy (Vo1d) 
extern void ro11ing (vo1d) : 
extern void dotshiFtr (Vo1d) : 
extern vo1d dotshift] (vo1d) : 
extern votd dotshiFtud (1nt) : 
extern void udhanten (vo1d) 


extern void dot p1ot (1nt) : 


extern 1nt xyoset (int, nt, int,。 1nt): 


@xt@rn YO1d CurSorxor(1nt。 1nt,。 nt) : 
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extern voiQd gsave (vo1d) 
extern votd gl1oad (vo1d) 
extern vo1d fstart (Yo19) 


extern void fend(vo1d) 


extern votd change_box (vo1d) : 
extern vo1d fi1e disp(Vo1d) 


extern void mousetnit( unsigned 1nt, uns1gned nt。 


unsigned 1nt, unsigned nt): 


extern void mouseterm (Vo1d) : 


extern void mousexySet (1nt,。 1nt) : 


int xmax = 64。 
64。, 
0, 
0: 


votd main() 
{ 


1nt sfsinz 


grphintt () : 
pointer set () 

initset () 

mouseinit(mwtndow * 8, 639, 0, 399): 


CurSorxxOr (memory_ adr/ bt adr, CO1Oor) : 


dispwaku () 
Zoombitdt () 
initosr(): 
1nitkey(): 
initco1or() 
keydat = 1: 
while(keydat != 0) { 
Switch (keydat) { 
caSe MAKE CR: 
disab1e() : 
1f(csr on == 1) 


CursorxOr (memory adr, bit adr/ CO1o エ ) 
msonoEE = 0: 
enab1e () 


ェ Co1or ( ) 
Cu エ SOrxrOr (memOry ad ェ /。 Di adr。 Co1o エ ) : 


msonoff = 1: 
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break 

CaSe MAKE Ch: 
disab1e () : 
1f(CSr_on = デ = 1) 


CuFSOFxxO (mermO エ Y ad わ 1 adr/ Co1or) : 


mSonoff = 0: 
enab1e () : 
1co1or() : 


CurSOFxxOF (memory adr, bi adr。 


mSonoffF = 1: 
break: 

CaSse MAKE F1: 
a11paint (wwindow。 
break: 

CaSse MAKE F2: 
a11paint (wwindow, 
break 

Case MAKE F3: 
a11paint (wwindow, 
breakz 

CaSse MAKE F4: 
a11paint (wwindow, 
break: 

CaSse MAKE F5: 
a11paint (wwindow, 
break: 

CaSe MAKE SHTEFT: 
disab1e () : 


1f(csr on == 1) 


CurSOrXOr (mmemory adr, bit adr, Co1Or) 


mSonofFf = 0: 
enab1e () : 
ptn_ copy() 
msonoff = 1: 
break: 

CaSe MAKE ZOOM: 
zoombitdt () : 
break: 

Case MAKE ROLL: 
ro11ing() 
break: 

CaSe MAKE RTGHT: 


Co1or。, 


co1or, 


Co1or, 


co1or) : 
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dot sh1ft エ () ょ 
break: 

Case MAKE LEFT: 
dotshift1 () : 
break: 

CaSse MAKE UP: 
dotshiftud (0) : 
break: 

Case MAKE DOWN: 
dot shiftud (1) : 
break: 

CaSe MAKE HANTEN: 
udhanten () 
break: 

Case MAKE LOAD: 
disab1e () 
1f(csr on == 1) 


CurSorxOr (memory adr, bit adr, 


enab1e() 
Fstart () : 
g1oad() 
fend(): 
msonoffF = 1: 


msonoff = 0: 
| 
| 
1 


break: ] 
Case MAKE SAVE: 
disab1e () : 


1F(csr on == 1) 


CU エ SOrXOr (memO ェ y adr, bt adr, 

msonoff = 0: 

enab1e () : 

fstart () : 

9Save () 

fend() : 

mSonoff = 1: 

break: 

Case MAKE CHANGE : 
change box() : 
break: 

defau1t : 
break: 
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} 
mouseterm( ) 
termkey() 


termCSr() : 


c1osegraph () 


LIST3-19.PRJ 


11st2-0 
1 上 2-1 
11st2-6 
11st2-9 
11st2-11 
11st3-0 
1 8 も 3-2 
11st3-4 
11st3-6 
11st3-8 
11st3-10 
11st3-12 
11st3-14 
11st3-16 
11S3-17 
11st 上 3-19 
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グラ フィ ックス 処理 の ひと つの 分 野 と し て 発展 し て きた TV ゲー ム で 
す が 、 一 口 に ゲー ム と いっ て も 、 迷 路 型 、 シ ュー ティ ング タイ プ 、 ロ ー ル 
プレ イン グ な ど 様 々 な 形態 が あり ます 。 中 で も リア ル タ イ ム ゲ ー ム の 分 野 
は 、 プ ログ ラム の 結果 を 確か め な が ら 進 め る こと が で きる た め に 、 プ ログ 
ラミ ング も 楽し く 進め て いく と と が で きま す 。 人 本章 で は 3 章 の パタ ー ン エ 
ディ タ で デザ イン し た キャ ラク タ を 使っ て 、 実 際 に アニ メー ショ ン 処 理 を 、 
さら に 、 こ れ を 発展 きせ た リア ル タ イ ム ゲ ー ム を 作っ て いき ます 。 

まず 話 を 進め る 前 に 、 ア ニメーション 用 の 口絵 パタ ー ン を 用 意 し て お き 
まし ょ う 。 デ ザイ ン し た パタ ー ン は 、 ひ と つの ファ イル と し て カレ ント ディ 
レク トリ へ 格納 し て お いて くだ さい 。 プ ログ ラム を 効果 的 に 、 ま た 楽し く 
進め て いく た め に も 、 こ と の よう な 地味 な 作業 が 必要 と な っ て きま す 。 もち 
ろ ん 、 パ ター ン 数 さえ 揃っ て いれ ば オリ ジ ナ ル の デザ イン で も な ん ら 差 し 
支え あり ませ ん 。 な お 、 各 キャ ラク タ の 大 き さ は 32X32 ド ッ ト と し まし た 。 
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圏 アニ メー ショ ン 処 理 


アニ メー ショ ン 処 理 の 実際 は 、 説 有明 する まで も な く 徐 々 に 動い て いく 過 
程 を 連続 し て 表示 すれ ば 実現 で きる わけ で す 。 対 象 と な る 動作 を いか に 細 
か く 分 解す る か に よっ て 、 動 き の な め ら か さ が 決 まる の で す 。 も っ と も 、 
メモ リ に 制限 の ある パソ コン で は 、 見 せ 場 と な る パタ ー ン に より 多く の 動 
作 パ ター ン を 割り 付け る と いう 手法 を と り ま す 。 

さて 、 デ ザイ ン し た パタ ー ン を 実際 に 利用 する に は 、 一 枚 の 絵 と な っ て 
いる 画面 上 の 絵 を 適当 な 大 き さ に 切り 取っ て メモ リ へ と 格納 し て お か な け 
れ ば な り ま せん 。TURBO C に は 画面 上 の 指定 され た 範囲 の ビッ トイ メー 
ジ を メモ リ ヘ セーブ する getimage () と いう 関数 と 、 セ ー ブ プ し た ビッ トイ 
メー ジ を 画面 上 に 復元 する putimage() と いう 関数 が あり ます 。 こ れ ら の 
関数 を 利用 する の も ひと つの 方 法 と し て あげ られ ます 。 

し か し 、TV ゲー ム な ど で は 画面 上 の ビッ トイ メー ジ を 単純 に セー ブ し 
て その まま 復元 する より も 、 こ れ ら の ビッ トイ メー ジ を さら に 加工 する 場 
合 が し ば し ば で すか ら 、 構 築 す る シス テム に 合わ せ た 独 自 の 関数 を 作る 必 
要 が あり ます 。 そ こ で 、 こ れ ま で の 応用 も 兼ね て 、 画 面 上 の ビッ トイ メー 
ジ を メモ リ ヘ セーブ す る 関数 と 、 画 面 に 絵 を 復元 する 関数 を 作る こと に し 
に の の 

メモ リ と は 、 す な わ ち 変数 の こと で す が 、 こ こ で 画面 上 の デー タ を 変数 


ひと つの パタ ー ン | 32 ド ッ ド 


図 4-| パタ ー ン の デー タ 構 造 
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へ と 格納 する と と を 考え て み ま す 。 口絵 の デザ イン で は ひと つの パタ ー ン 
の 大 き さ を 32X32 ド ッ ト し まし た か ら 、 こ の 場合 の デー タ 構 造 は 図 4-1 の よ 
うに な り ま す 。 

まず XX 方向 で す 、 こ れ は 汎用 性 を 考慮 すれ ば char 型 の 変数 配列 を 使い 
た い ぃ 所 で す が 、 ス ピー ド 最 優先 の リ り リアルタイム ゲー ム と いう こと で 、 デ ー 
タ を まとめ て 処理 で きる 32 ビ ッ ト 長 の long 型 の 変数 を 使う こと に し ます 。 
で すか ら 、X 方 向 は long 型 の 変数 ひと つ で 対応 で きる わけ で す 。 次 に Y 方 
向 で す が 、 こ れ は 単純 に long 型 の 変数 が 32 ラ イン 重なる こと に な り ま す 。 
また 、 プ レー ン は 4 つ あ り ま すか ら 、 ひ と つの パタ ー ン を 構成 する 変数 域 は 
次 の よう に 、 簡 単 な 構造 体 と し て 定義 で きる こと に な り ま す 。 


32X32 ド ッ ト で 構成 する ひと つの パタ ー ン を 格納 する た め の 構 造 体 定義 


#define PTY 32 
Struc { 
1ong pb[PTY] 。 ぉ プレ ー ン 用 デー タ エ リ ア 


1ong pr[PTY] K グ レー ン 用 デー タキ り 呈 

1ong pg[PTY] : G プ レー ン 用 デー タ エ リ ア 

1ong pl[PTY]: ェ プ レー ン 用 デー タ エ リ ア 
) pattern』 


また 、 実 際 に は パタ ー ン 数 が ひと つ で は あり ませ ん か ら 、 こ の 構造 体 自 
体 を 配列 と し て パタ ー ン 数 分 確保 むす る こと に し ます 。 


32X32 ド ッ ト で 構成 する 50 個 の パタ ー ン を 格納 する た め の 構 造 体 定義 


#define PTY 32 
Struct { 
1ong pb [PTY] ぉ プ レー ン 用 アー タ エ リ ア 


1ong pr[PTY] : Ss プ レー ンジ 用 アー タホ リア 

1ong pg[PTY] : G プ レー ン 用 デー タ エ リ ア 

1ong pi[PTY] ャ プレー ア 月 スニ デニ クノ 
) pattern [50] パタ ー ン 数 確保 する */ 


ここ で は 、50 個 の パタ ー ン を 格納 で きる 構造 体 を 定義 し まし た が 、 こ の 
数 は 適当 に 設定 し て くだ さい 。 
さて 、 こ の よう に 変数 の 構造 が 確定 で きれ ば 、 あ と は 単純 に 画面 上 の デー 
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タ を 取り 込む だ け で す 。 早 速 、 ビ ッ ト イ メー ジ を メモ リ ヘ セー ブ す る pat- 
tern in() と いう 関数 と 、 処 理 と し て は 逆 の ビッ トイ メー ジ を 画面 上 に 復 
元 する pattern _out() と いう 関数 を 作っ て み ま し ょ う 。 


LIST4-0.C 


#inc1ude < く std11b .h> 
#1inc1ude < く stdto .h> 
#inc1ude < く conto .h> 
#1nc1ude <dir.h> 


extern Char far * メ C D1u@: 
extern ohar far *C red: 

extern Char Far *C dreGn: 
extern char Far *C 1tSty: 
#define PTY 32 


/* パタ ー ン 格納 用 構造 体 の 定義 */ 


Struct { 


Qtb [PTY] : 
1ong dtr[PTY]: 
1ong Qtg[PTY]: 
1ong dti[PTY] : 

}) pattern[50]: 


1ong 


/* 画面 上 デー タ を メモ リ ヘ セー プ す る */ 
pattern in(unsigned nt 1, nt }) 
{ 
nt .K7 
ifE(i < 50) { 
for(k = 0: k < PTY: ]+=80, ++k) ({ 

pattern [1] .dtb[k] = *(1ong far *)(c_bl1ue + う )): 

pattern [1] .dtr[k] = *(1ong far *) (o_red FF *( 寺 げ 
pattern [1] .dtg[k] = *(1ong far *) (co_green + ]): 
pattern [1] .dti[k] = *(1ong far *) (c itsty + ]): 
} 
ュ = 0: 
} 
e1Se 


return (1) : 
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/* メモ リ か ら 画 面 へ パタ ー ン を 復元 する */ 
pattern out(unsigned nt 1, nt ]) 
{ 
int kz 
を (た <.50) 1 
Eor(k = 0: k < PTY: ]+=80, ++k) [{ 
*(1ong far *) (c bl1ue + ]) = pattern [1] .dtb[k] 
*(1ong far *) (c_red + ]) = pattern [1] .dtr[k] 
*(1ong far *) (c_ green + ]) = pattern [1] .dtg[k] : 


*(1ong far *) (c tsty + ]}) = pattern [1] .dti [k]: 


1 = 0: 
} 
e1Se 1 = 1』 


return (1): 


これ ら 関 数 の 引数 に は 、 パ ター ン NO. と 32X32 ド ッ ト で 構成 する BOX 
型 の 左上 の G.V.RAM アド レス を 与え る こと と し まし た 。 な お 、 パ ター ン 
数 の 最大 値 で ある 50 を 超え た 場合 に は 、 な に も 処理 せ ず に 関数 の 戻り 値 と 
し て 1 を 返す よう に し て あり ます 。 ま た 、 パ ター ン NO. を 示す 引数 1 の 定義 
で は unsigned と し て いる こと に 注意 し て くだ さい 。 こ の こと に より 配列 
を 参照 する 時 の i の 範囲 は 0 ミ =i く 50 と 確定 され る の で す 。 普 文 の 条件 判断 
を 少な くす る ささ や か な 配慮 と いえ ます 。 
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圏 キャ スト 演算 子 


LIST4-0.C で は 、 配 列 を 参照 する た め の 変 数 の 範囲 に 気 を 配る と 共に 、 
も う ひ と つ 重 要 な キャ スト (cast) と いう 概念 が 導入 きれ て いま す 。 

キャ スト と は 、 い っ た ん 定義 し た 変数 や 式 の 型 を 、 一 時 的 に 別 の 型 へ と 
変換 する こと を 指し て いま す 。 LIST4-0.C で は 、 char 型 の G.V.RAM へ 
の ポイ ンタ の 型 を パタ ー ン を 格納 し て ある 変数 の 型 で ある long 型 へ と 
キャ スト ( 型 変換 ) し て いま す 。 こ の キャ スト の 特徴 は 、 型 を 変換 する ま 
で は 本 来 与 を られ た 型 が 有効 で も ある と いう こと で す 。 当 り 前 の よう で す が 、 
と の こと が 重要 な の で す 。 

LIST4-1.C で は 、 こ れ を 利用 し て フィ ー ル ド の アド レス 計算 を する 時 に 
は 本 来 の char 型 で 、 デ ー タ の や り 取 り は 1]ong 型 と いう よう に 、 最 も 細か 
く G.V.RAM を 操作 で きる char 型 の 特徴 を 生か し な が ら 処 理 の 高速 化 
を 図っ た と いう わけ で す 。 

で は 実際 に 、 こ れ ら の 関数 を 利用 し て アニ メー ショ ン 処 理 を 実行 し て み 
まし ょ う 。main () 関数 と プロ ジェ クト ファ イル は 次 の よう に な り ま す 。 


LIST4-1.C 


/* 
アニ メー ショ ン 処 理 用 メイ ン 関 数 の 定義 
*/ 
#1nc1ude <graphios .h> 
#1nc1ude < く oconio .h> 
#1nc1ude < く stdio.h> 


#define NPAT 80*32 


extern 1nt pattern 1n(unsigned int, nt) : 


extern 1nt pattern out (uns1gned nt, nt): 


extern 1nt g1oad (Yo1d) : 


nt mwindow = 36: 


Yoid main() 


{ 


ML ま 。 う 。 半 。 お 信和 
9rphinit () : 
pointer set () 
C1raor() 
Printf("Wn パ ーッ デー9 ロー ド ") : 
if(g1oad() == 0) { 
Eor(k =m=n=0, ] =mwindowz k < 4: ++k。, 
Eor(1 = 0 ] = 1: 1 < 11: ユキ + オ ミエ 。 ]+=4) { 
n = pattern 1n (m++。 ]) 
1f(n != 0) break: 
} 
if(n != 0) break: 
] 
Cc1rscr() : 
printf("wn22ー ト パル ーッ no.=") : 
SCanf ("も d",。 &k) : 
Printf ("エッ ト パル ター ツ no.=") 
Scanf ("も d", &]) 
61YaCY() 
1 = kj 
do { 
pattern out ( ュ ユ ++, 0): 
ifE(1 > ]) ミエ = kj 
) while (getoch () != 0x1b) : 
61 
e1se { 
PrintE("\n presSs any key"): 
getoh () 
} 
c1osegraph ( ) 


LIST4-1.PRJ 
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ユ +=NPAT) { 


11st2-0 
11 st 上 2-1 
11st3-16 
11st4-0 
11st4-1 
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LIST4-1.C を 実行 する と 、 パ ター ン が 格納 し て ある ファ イル 名 の 入力 を 
師 す メッ セー ジ が 現れ ます 。 フ ァイル 名 を 指定 する と 、 次 に アニ メー ショ 
ン の スタ ー ト NO. と エン ド NO. を 入力 し ます 。 コマ 送り は [SPACE] キー 
と し まし た 。 で は 、 口 絵 の パ ター ン で 実験 し て み ま し ょ う 。 ア ニ メ ー シ ョ 
ン の スタ ー ト NO. と し て 7 を エン ド NO. と し て 18 を 入力 し て くだ さい 。 
[SPACE] キー を 押し 続け る と 三角 形 の 板 が 回 転 し て いる 状態 が 表示 され 
る は ず で す 。 こ の 例 で は パタ ー ン の 大 き さ を 32X32 ド ッ ト と し まし た か ら 
迫力 に 欠け ます が 、 も っ と 大 き な パ ター ン 用 の 関数 を 作っ て 試し て みる の 
も お も し ろ い で し ょ う 。 ま た 、 セ ー ブ し た パタ ー ン を 斜め 方 向 に 復元 し た 
り 、 構 成す る 色 を 変え た り 等 、 セ ー ブ し た ビッ ト 情 報 を 色々 と 加工 し て み 
る の も よい で し ょ う 。 
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き て 、 こ こ で LIST4-0.C の お も し ろ い 応用 を 考え て み ま し ょ う 。 そ れ 
は 、CRT 画面 の 中 に 2 次 元 の 世界 を 作り 出す た め の マ ッ プ エディ タ と いう 
ツー ル で す 。 マ ッ プ エディ タ と いう の は パタ ー ン エディ タ と 並ん で TV 
ゲー ム に は 欠か せな い ツ ー ル と な り ま す 。 し か も 、 LIST4-0.C を 使え ば 簡 
単に 作る こと が で きる の で す 。 

さて 、 複 雑 な マッ プ を 作る に は それ な り に 複雑 な 処理 と な り ま す が 、 こ 
と で は 移動 方 向 は 一 方 向 の み と い う 制 限 を 付け る こと に し ます 。 

マッ プ の 基本 パタ ー ン は 他 の パタ ー ン と 同様 に 32X32 ド ッ ト と する と 、 
画面 横 方 向 に は 20 個 の パタ ー ン を 並べ る こと が で きま すか ら 、 マ ッ プ デー 
タ は パタ ー ン が 横 に 20 個 並ん で お り 、 そ れ が 縦 方 向 に 展開 する 構造 と し 、 
各 パ ター ン は 番号 で 管理 する も の と し ます 。 で すか ら マ ッ プ デー タ を 管理 
する 為 の 変数 は 、 次 の よう に 単純 な 2 次 元 配列 と すれ ば よい で し ょ う 。 


#deFfine  PYMAX 240-1 
#deFine PXMAX 20-1 
unsigned char map data[PYMAX+1 ] [PXMAX+1 ] / 
まず 、 マ ッ プ エディ タ を 作る 前 に 、 こ こ で 定義 し た デー タ を ディ スク に 
セー ブ し た り ロ ー ド する 為 の 専用 の 関数 を 作る こと に し ます 。 


LIST4-2.C 


/* 


マッ プ デ ー タ 用 ファ イル 管理 
*/ 


#1nc1ude "11st3-16 .c" /* 1ist3-16.c の イン クル ー ド ォ */ 
#deEine  PYMAX 240-1 /* マッ プ デ ー タ ャ 方 向 最大 値 */ 
#deF1ne PXMAX 20-1 /* マッ プ デ ー タ x 方 向 最大 値 */ 


extern Yo1d ゞ ramdotset ( nt, int, ohar, nt。 nt。 nt。 
も n も 。 nt, 壮 m も 。 mn も 一 主 n キ 一) 7 
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/* マッ プ デ ー タ 格納 用 変数 配列 の 定義 */ 


uns1gned char map data[PYMAX+1 ] [PXMAX+1] 


/w ペッ プ デ ャ メタ 殆 ディス クベ セ ー ツ ずる ミッ 
map_data save(vo1d) { 

char fname[64]: 

FTLE *SFDp: 


Char Oz 


1nt 1。 J。 k。 1。 Es1n 


Yramdotset (0, 0, OxEfE, 1, 2, 4, 8, 36, 400, 0, 
fsin = 0: 
while(1) { 
1 吾 3/ 
while(1) { 
Pr1intE ("nyninput save fi1e name\n"): 
1 = getname (Fname) 
if(1 == 1) { 
fsin = 2: 
break: 
} 
1f(1 == 2) fi1e disp(fFname) 
elsei= 0: 
} 
if(fsin == 2) break: 
if(access (fname, 0) == 0) { 
PrintF( "\ns 1s a11ready extist \ncontinue (Y-N) 
fname ): 
while(1) { 
c = getoh() : 
1f(Cc == "nmn! | Cc == "N') 
fsin = 2: 
break: 
} 
1f(C ee "YY! 1 6G ーー "777) 【 
PrintE("Y") : 
break: 


} 
if (Fs1n == 2) break: 
} 


el1se PrintfF("save Fi1e name 


所 


L」 
ヶ 
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SEp = fopen(Ename, "wb") : 
1f (NULL == sfp) 
fsin = 3: 
break: 
} 
fsin = 0: 
For(1 = 0: 1 <= PBYMAX: ++ ュ 1) { 
for(] = 0: ] <= PXMAX: ++]) { 
1f (Eputo (map data [1] []] , sEp) == EOE) 
Esin = 1: 
break: 


} 
1f(EFsin == 1) break: 
} 
Foc1ose (SFD) : 
break: 
} 
fmes(Esin, fname) : 


return(Esin)』 


/* マッ プ デ ー タ を ディ スク か ら ロ ー ド する ょ */ 


map data 1oad(vo1d) 
{ 


char fname[64]: 
FTLE *SFD: 
は nt で G。/ 1 せ / 

Struot EEb1k EFDb1k: 


], k, 1, 8, done, fsinz 


Yramdotset (0, 0, 
fsin = 0: 
while(1) { 
1 = 3 
while(1) { 
Printf("\n\nY?77 デー タ 


0xfEf。 1, 2 4。 8, 36, 400。 0, 


n- ト ")。 
printE("\ninput map data fi1e name\n"): 
1 = getname (Ename) : 
1f(1 == 1) { 

Esin = 2: 


break: 


0): 


{ 
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1f (1 == 2) fi]e disp(fFname) 


else 1 = 0: 
} 
1f (fsin = ニ = 2) break: 
PrintE("1oad fi1e name = も s ", fname) 
SEp = fopen(Fname, "rb") 
1E (NULL == sfp) { 
Esin = 3: 
break: 
} 
Esin = 0: 
For(1 = 0: 1 <= PYMAX: ++1) { 
for(] = 0: ] <= PXMAX: ++]) { 
1f((c = fgetc (SFfFp) ) == EOF) { 
fsin = 1: 
break: 
} 
map data [1 は ] []] = oz 
} 
if(Esin == 1) break: 
} 
fsin = 0: 
fc1ose (SFD) 
break: 
} 
fmes (fsin, fname) : 


return (Fsin) : 


マッ プ エ デ ィ タ と いう の は 、 基 本 的 に マッ プ デ ー タ 用 に 定義 し た 配列 へ 、 
画面 に 展開 し た パタ ー ン に 対す る パタ ー ン 番号 を 格納 し た り 、 逆 に 、 配列 
に 格納 し て ある パタ ー ン 番号 か ら 、 画 面 を 復元 する 機能 を 持た せれ ば よい 
わけ で す 。 で は 、 プ ロジ ェクト LIST4-3.PRJ まで 進ん で くだ さい 。 


LIST4-3.C 


/* 
マッ プ エ デ ィ タ 
4 


#inc1ude <graphios .h> 


#1nc1ude く conio .h> 
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#inc1ude < く stdio.h> 
#1nc1ude <bios98 .h> 
#1no1ude < く dir.h> 
#1nc1ude < く 1o.h> 


#deFine NPAT 80*32 
#define RTGHT 「'6' 
#define LEFT !4* 
#define UP に 
#define DOWN ば た 
#define ESC 0x1b 
#define SPACE  ' 
#define LOAD1 『'1! 
#define LOAD2 『' エ LY 
#deEine LOAD3 "りり * 
#define ば 
#define 
#define * ト * 
#define 11-1 
#define 4-1 
#define 20-1 
#define 6-1 
#define 0 
#define 0 
#define 0 
#define 0 
#define 20-1 
#define 240-1 


extern Char far *C b]u@: 

extern Char far *o redz 

extern Char far メ C qre@en: 

extern Char far *oC 1tstY: 

extern unS1qned char map data[PYMAX+1 ] [PXMAX+1 ] : 


extern pattern in(unsigned nt, 1nt): 
extern pattern out (unstgned 1nt,。 1nt): 
extern g1oad (vo1d) 

extern map data Save (Vo1d) : 

extern map_ data 1oad(Vo1d) : 


Yo1d rtght set (vo1d) : 
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Yo1d 1efFt set (Vo1d) : 


void down se (vo1d) 


Yo1d up _set (vo1d) : 


Yo1d boxxcurso1 (int) : 
votd disp _map(int): 
int mwindow = 36, 
mpwindow = Ox7d00 - 80 * 32 * 6。 
box 1nf = 1。 
* 語 04 
= 0, 
= 0, 
PYO0 = 
boxadr: 


/* マッ プ エ デ ィ タ 用 メイ ン 関 数 の 定義 */ 
void matn() 
{ 
も nt は /。 ]。 K。 1。 mm。 n。 K@Y/ 
grphinit () 
Pointer set () : 
Printf("Wn パ ター ッッ デー ロー- ト ") : 
if (g1oad() == 0) { 
for(k = m=n = 0, 1 = mwindow: k <= YMAX: 十 k, 1 += NPAT) 
Eox(+ = 0。 ] = 1 せく 11: 4。 Tem4) f 
n = pattern in (m++。 ]): 
if(n != 0) break: 
} 
ifF(n != 0) break: 
} 
C1rSCr() 
key = 0: 
pattern out(x キメ (XMAX 十 1), 0): 
disp _map(0): 
boxcurso1l(y * 32 * 80 + xx * 4 十 mwindow) : 
boxcurso1(y2 * 32 * 80 + xx2 * 4 二 mpwindow) : 
while(key != ESC) 〔 
rkey = getoh () : 
Switch (key) { 
CaSse RTGHT: 
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right set () : 
break: 
CaSe LEEFT: 
1eft set (): 
break: 
CaSse UP: 
up_Set () 
break: 
Case DOWN: 
down set () : 
break: 
CaSe SPACE : 
boxCurSso1(y2 * 32 * 80 + x2 * 4 十 mpwindow) : 
pattern out(x + Y * (XMAX 二 1), 
y2 * 32 * 80 + xx2 メ 4 二 mpwindow) 
map_data [py] [px] = (char) (x+ マメ (XMAX 二 1)): 
DoxCurSo1(y2 * 32 * 80 + xx2 * 4 十 mpwindow) 
break: 
case LOAD1 : 
Case LOAD2 : 
case LOAD3 : 
map data 1oad() : 
py0 = 0: 
boxourSo1 (y2 * 32 メ * 80 十 2 * 4 十 mpwindow) : 
disp _map(0): 
boxcurSso1(y2 * 32 * 80 + xx2 * 4 二 mpwindow) : 
pattern out(x キオ 放 * (XMAX+ 1)。 0): 
breakz 
CaSe SAVE1 : 
Case SAVE2: 
Case SAVE3: 
map data save () : 
pyO0 = 0: 
boxcurSo1 (y2 * 32 * 80 + x2 * 4 二 mpwindow) 


disp _map(0): 


DoxCurSo1(y2 * 32 * 80 + xx2 X 4 十 mpwindow) : 
pattern out(x + Y * (XMAX + 1),/ 0): 
break: 

defau1t : break: 


140 第 4 章 TV ゲー ム の 世界 


e1se { 
Printf("\n preSS any key"): 
getch () : 

} 

c1osegraph () : 


/* ボッ クス カー ソル 右 方 向 へ の 移動 */ 
Yo1d right set (vo1d) 
{ 
KEY TNFO keyinFE: 
keyinE.ormnd = 2: 
3E(bios98key(skeyinf) != 0) { 
boxcurSol(y * 32 * 80 + xx メ 4 十 mwindow) 
オ = 1: 
1E(x > XMAX) { 
X メ デー XMTN: 
Y += 1: 
1f(y > YMAX) y = YMAX: 
} 
boxcurSo1(y * 32 メ 80 + xx * 4 十 mwindow) : 
Pattern out 上 (x+ * (XMAX 十 1), 0): 
} 
e1se { 
jboxcurso1(y2 * 32 * 80 + 2 * 4 十 mpwindow) : 
++x2: 
1f (x2 > XMAX2) x2 = XMTN2: 
PX = 2: 


boxcurso1(y2 * 32 * 80 + x2 * 4 十 mmpwindow) 


/* ボッ クス カー ソル 左 方 向 へ の 移動 */ 
Yo1d 1eft set (Yo1d) 
{ 


KEY TNFO keyinf: 
keyinEf.ommd = 2: 
if(bios98key(&keyinf) != 0) 〔 
boxcurso1(y * 32 * 80 + x * 4 填 mwindow) 
ーー が 
1f(x < XMTN) { 
メ ニー XMAX: 
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マー デ 1 が 
1f (y < YMIN) y = YMIN: 
} 
boxcurSo1(y * 32 * 80 + x * 4 十 mwindow): 
pattern out(x + * (XMAX+ 1), 0): 
} 
e1se { 
boxcurSo1(y2 * 32 * 80 + z2 * 4 填 mpwindow) : 
ーーX2 
1f (x2 < XMTN2) x2 = XMAX2: 
PX = X2: 


DoxCurSo1l(y2 * 32 * 80 + x2 * 4 十 mpwindow) : 


/* ボッ クス カー ソル 下方 向 へ の 移動 */ 
void down set (vo1d) 
{ 
KEY TNFO keyinf: 
keyinf.cmmd = 2 
if(bios98key(skeyinE) != 0) { 
boxcurSo1(y * 32 * 80 + xx * 4 十 mwindow): 
++Y ァ 
1f (y > YMAX) y = YMTN: 
boxcurso1(y * 32 * 80 + x * 4 十 mwindow): 
pattern out(x +  * (XMAX 二 1),。 0): 
} 
e1se { 
DoxCurSo1(y2 * 32 * 80 + x2 * 4 十 mpwindow) : 
++y2』 
1f (y2 > YMAX2) { 
ーー ツ 2: 
ー-PY0: 
ifE(py0 < 0) py0 = 0: 


e1se disp_map(py0): 


} 

ーーPY? 

if(py く 0) py = 0: 

boxcurSo1(y2 * 32 * 80 + z2 * 4 十 mpwindow) : 
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/* ボッ クス カー ソル 上方 向 へ の 移動 */ 
Yo1d up _set (vo1d) 
{ 
KEY TNFO keyinf: 
keyinf.cmmd = 2: 
if(bios98key(skeyinf) != 0) { 
boxcurso1(y * 32 * 80 + x メ 4 十 mwindow): 
ーーy: 
1 (y < く YMTN) y = YMAX: 
boxcurso1(y * 32 * 80 + xx * 4 十 mwindow) : 
Pattern out(x キマ * (XMAX+ 1), 0): 
} 
e1se { 
boxcurso1(y2 * 32 * 80 + x2 メ 4 十 mpwindow) : 
ーー ザ 2 
1f (y2 < YMTN2) { 
++y2 
++pY0 
1f (py0 > PYMAX - 5) pyO = PYMAX - 5: 
e1se disp_map(py0) 
} 
†PY: 
1f (py > PYMAX) py = PYMAX: 
boxcurso1(y2 * 32 * 80 + xx2 * 4 二 mpwindow) 


/* マッ プ の 表示 */ 


void disp map(1nt py0) 
{ 


ま も R も も 。 3 甘 。 ま > 
for( = 0, k = Ox7d00 - 32 * 80: 1 < 6: ++1) { 
for(] = 0, 1 = kz: ] <= PXMAX: ++]。 ユ +=4) { 
pattern out((unsigned int)map data[i+py0] []], 1): 
} 
k -= 32 * 80: 


Yo1d xxorvramdt (1nt,。 int,。 int) 
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/* ボッ クス カー ソル の 表示 */ 
vo1d boxcurso1 (int k) 
{ 
int xmmax = 32, ymax = 32: 
4 も も / う / 
3f(box inf == 1) { 
] = (ymax - 1) * 80: 
for(1 = 0: 1 < xxmax / 8: ++1。 ++]) { 
OrVramQt(k 十 ユ 。 OxEE, 1): 
xOorVramdt (k 十 ], OxEE, 1): 
} 
] = xnax / 8+Tk+ 79。 
k += 80: 
xorVramdt (k, Ox80, ymax - 2): 
xorVramdt (], Ox01, ymax - 2): 
} 
e1se box inf = 1: 


/* 指定 アド レス へ 指定 デー タ を 書き 込む */ 
Yotd xorvramdt (int 1 nt ],。 #nt Kk) 
{ 
4nt 1/ 
Eor(] = 0: 1 < kz ++1。 +=80) { 
*(C_b1ue + は) ^ へ = ]: 
*《(G_ ed は) へ ml 7 
*(C_ qre@en + 11) ^= ]: 
*(o tsty + 1) へ =]: 


LIST4-3.PRJ 


11st2-0 
1 st2-1 
11st3-0 
11st4-0 
11st4-2 
11st4-3 


この マッ プ エ デ ィ タ で 注意 し な けれ ば な ら な い の は 、 マ ッ プ デー タ の 終 
わり の 判断 を どの よう に する か で す 。 マ ッ プ デー タ の 変数 は unsigned 
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char と し まし た か ら 、 格 納 で きる 数 値 は 0 て 255 と な り ま す 。 そ こ で 、 本 書 
で は 、 こ の 中 の 0 番 を マッ プ デ ー タ の 終わ り を 表す 番号 と する こと に し まし 
た 。 で すか ら 、 パ ター ン 番 号 の 0 番 は マッ プ を 構成 する パタ ー ン と し て は 使 
えな いと いう こと に な り ま す 。 な お 、 こ の 関数 の 先頭 で は 、 マ ッ プ デー タ 
を 0 で 初期 化 を し て いま す 。 
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還 GDC に よる スム ー ズ スク ロー ル 


マッ プ が 完成 し た な ら 、 次 に 画面 の スク ロー ル に チャ レン ジ し て みよ う 
で は あり ませ ん か 。 こ の 画面 スク ロー ル は TV ゲー ム に 限ら ず グ ラフ ィ ッ 
クス 処理 に は 欠か せな い テ クニ ッ ク で ある と いえ ます 。 さ て 、 こ の スク ロー 
ル 処 理 に は 色々 な 方 法 が あり ます が 、 こ こ で は 標準 的 な GDC (Graphic 
Display Controler) に よる 方 法 を 紹介 し まし ょ う 。 

GDC と は 、PC-9801 シ リー ズ の 初代 か ら 登載 され て いる グラ フィ ッ ク 画 
面 コ ント ロー ル 専 用 の LSI で す 。 こ の LSI が 持っ て いる 機能 に は 画面 を 分 
割 し て 表示 する 機能 が あっ て 、 こ れ を うま く 利 用 する こと で 画面 の スク 
ロー ル が 可能 と な る の で す 。 こ の スク ロー ル は ハー ド 的 な スク ロー ル で あ 
る と こと か ら 、 ハ ー ド ウェ アス クロ ー ル と も いわ れ ま す 。 図 4-2 を 参照 し て く 
だ さい 。 


図 4-? GDO に よる 分 割 画面 と CT 画面 の 対応 


GDC で は この よう に 任意 の アド レス (ワー ド 単 位 ) で ひと つの 画面 を 二 
分 割 し て 表示 する こと が 可能 な の で す 。 こ の 時 、 表 示 開 始 位置 は AREA1 の 
左上 と な り ま す 。 また 、 こ の AREA1 と AREA2 の 位置 は ワー ド 単 位 で 任意 
に 設定 で きま すか ら 、 図 4-3 の よう に AREA1 と AREA2 の 構成 を 連続 的 に 
変化 させ る こと に よっ て 、 表 示 開 始 位置 を 徐々 に 移動 する こと が 可能 と な 
り 、 見 か け 上 スム ー ズ な スク ロー ル が 実現 で きる の で す 。 

さて 、GDC の コン トロ ー ル で 分 か り に くい の は アド レス 管理 の 方 法 で 
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図 4.3 GDC に よる 画面 分 割 に よる スク ロー ル 


し ょ う 。GDC と CPU は 同じ G.V.RAM を アク セス する の で す が 、 割 り 付 
け て ある アド レス は まっ た く 異 な り ま す 。 し か も 同じ G.V.RAM で ある 
に も か か わら ず ア クセ ス 単 位 は CPU が 8 ビッ ト で ある の に 対し て 、GDC 
は 16 ビ ッ ト を 単位 と し て いま す 。 表 4-1 に それ ぞ れ が 管理 し て いる アド レス 
を 示し ます か ら 参 考 に し て くだ さい 。 


表 4-1 GDOC と CPU と の 6.V.HAM の 対応 


4000』 一 7FFFi 
8000』 一 BFFF 
C000』 一 FEFFFi 
0000』 一 3FFEi 


A8000』 一 AFFFFr 
B0000』 一 B7FFFi 
B8000』 一 BFFFFi 
EO0000』 一 EZ7FFFi 


実際 の GDC の コン トロ ー ル は 、 ポー ト A0』、A2』 を 介し て コマ ンド と そ 
の コマ ンド に 付随 する パラ メー タ を OUT する こと に よっ て 行わ れ ま す 。 
この 時 、GDC 内 部 の バッ ファ の 状態 を チェ ッ ク し な けれ ば な ら な いこ と に 
注意 し て くだ さい 。GDC で は 処理 を 効率 よく 進め る た め に 16 個 の FIFO 
(First Im First Out) バッ ファ が あっ て 、 コ マン ド や パラ メー タ を 一 時 的 
に 蓄え て 実行 する 構造 と な っ て いる の で す が 、 バ ッ フ ァ が いっ ぱい で あれ 
ば ウェ イト を 取ら な けれ ば な ら な いか ら で す 。GDC の 状態 は ポー ト AOH 
か ら 表 4-2 の よう な ステ ー タ ス フ ラ グ と し て 得 ら れ ま す 。 

バッ ファ の 空き 状態 は ビッ ト の 2 で チェ ッ ク す る こと が で きま す (b2= 
1) 。 また 、 バ ッ フ ァ の 状態 は ビッ ト の 1 で も チェ ッ ク で きま す が 、 こ の 場合 
に は コマ ンド や パラ メー タ を 送る 前 に 一 回 一 回 チェ ッ ク し な けれ ば な り ま 
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其 
エ 


GDC の ステ ー タ ス フ ラ グ 


内 。 答 


DATA READY 

FIFO BUFEFER FULL 
FIFO BUFFER EMPTY 
DRAWING 

DMA EXECUTE 
VERTICAL SYNC 
HORIZONTAL BLANK 
LIGHT PEN DETECT 


ココ の mo CC テー 皿 


せん 。 さ て 、 コ マン ド で す が 、 ス クロ ー ル コマ ンド で は 次 の よう な 構造 と 


な り ま す 。 
ーー 


と の よう に 上 位 ニ ブル は 7、 下 位 ニ ブル は GDC 内 部 の RAM アド レス 
(以後 RA と 略記 ) と な る の が スク ロー ルコ マン ド で す 。RA の 初期 値 は 0 と 
な り ま すか ら 、 初 め に OUT する スク ロー ルコ マン ド は Ox70 と な り ま す 。 
また 、RA は 自動 的 に イン クリ メン ト ( 十 1) され る の で 、 コ マン ド は 一 度 
送る だ け で すみ ます 。 コ マン ド の あと は 、 必 要 と な る パラ メー タ を 送り ま 
す 。 図 4-4 を 参照 し て くだ さい 。 


図 4-4 表示 画面 と の 対応 . 
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ーー ャ ーーーーーーーー シ シバ 


この よう に ひと つの 画面 を AREA1 と AREA2 に 三 分割 し て 、 そ れ ぞ れ 
の 開始 アド レス と ライ ン 数 を SAD1、SL1 と 、SAD2、 SL2 と する と 、 各 パ 
ラメ ー タ は 表 4-3 の よう な 順番 で 送る こと に な り ま す 。 


表 4-3 スク ロー ルコ マン ド の 各 パ ラメ ー タ 


~ 内 蔵 RAM マッ プ (RA :GDC 内 部 の RAM アド レス ) 


IM| ま 示 電 
2 クロ ッ ク に 1 回 表示 ア | CSRFORM コ マン 
ドレ ス を イン クリ メン ト | ドド の 既定 値 使 用 


4 クロ ッ ク に 1 回 表示 ア ょ 
ドレ ス を イン タリ メン ト | に 


IM:Image 


と ころ で 、 最 近 の 機種 で は GDC の 動作 クロ ッ ク が 5MHz と 2.5MHz の 
二 通 り が あり 、 ユ ー ザ ー が 選択 し て 使用 で きる よう に な っ て いま すか ら 、 
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動作 クロ ッ ク に つい て も 考慮 し な けれ ば な り ま せん 。 ど ちら の クロ ッ ク を 
使用 する か は ディ ッ プ スイ ッ チ 2 番 の 8 に よっ て 選択 し ます (OFF で 2.5 
MHz、ON で 5MHz) 。 な お 、 変更 に 際 し て は シス テム を 再起 動 し な けれ ば 
な り ま せん 。 

当然 の こと な が ら GDC の パラ メー タ も この 動作 クロ ッ ク に 合わ せる 必 
要 が あり ます 。 ス クロ ー ル コマ ンド で は 、2.5MHz で IM ビッ ト =0、5MHz 
で IM ビッ ト = ニ 1 と な り ま す 。 で は 以上 の こと を 踏ま えて 次 の プロ グラ ム へ 
と 進ん で くだ さい 。 


LIST4-4.C 


/* 

GDC に よる スム ー ズ スク ロー ル 
*/ 
#define PTY 32 
#define SCLDOT 2 
#define SCLD16 SCLDOT*16 
#define SCLPTC SCLDOT メ 40 
#define GSTADR 0x4000 
#define GENADR 0x7e80 
#deEine STLTNE 0x1900 
#deftne ENLTNE 0x1900-SCLD16 
#deFine VEND 400*80 
#define PYMAX 240-1 
#deFine PXMAX 20-1 


extern char Far *o bl1uez 
extern Char Far *C redz 
extern Char far *C dre@nz 
extern Char far *C 1tS キ Y: 
extern Struc { 

1ong db [PTY] : 

1ong dtr[PTY] : 

1ong dtg[PTY] : 

1ong dti[PTY] : 
) pattern[50]: 
extern unS1gned char map data[PYMAX+1 ] [PYMAX+1 ] : 


int enemy tab1e1 [20] 


nt enemy_S1gn: 
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char gdchz = 0: 


Yo1d soro11 (int gvs, nt gve, nt stgn) 
{ 

Struot BYTE { 
Char 1owz 
char high: 

] 

union DATA { 
Short datawz 
Struoct BYTE datab: 

} 

union DATA 
no1, 
no2, 
ad1, 
ad2 

Static nt 
Sc1ad1 , 
SC1no1, 
Sc1no2。, 
map_Ptn_ Y/ 
maP_Y/ 
map X: 


int 1,。 mn, PBP, dz 


3f(sign == 0) { /* sign=0 な ら ば 全 画 面 を クリ ア す る x/ 
map ptn y = PTY-SCLDOT: 


map x = 0: 
map y =0: 
Sc1ad1 = GSTADR + SCLPTC: 
for(1] = gve, m = 0: m < VEND / 4: ++m。 1+=4) { 
if (1] >= VEND) 1-=VEND : 
*(1ong far メ ) (c blue + 1) 0: 
*(1ong far *) (Cc_ red  + 1) 0: 
*(1ong far *) (Cc _ green + 1) 0: 
*(1ong Far メ ) (c itsty + 1) 0: 


} 
e1se { /* sign=1 な ら ば 不要 部 分 の 消去 を する */ 
for(m = 0, p = gvez m < 20: ++m。 p+=4) { 
Eor(1 = 0, で = pz 1 < SCLDOT: ++1,。 q+=80) { 
*(1ong Far メ )(c blue +q) = 0: 
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*(1ong far *) (Cc_red  +q) =0: 
*(1ong Ear *) (Cc green + q) = 0: 
*(1ong far *) (c itsty + q) = 0: 


while((inportb(Oxa0) & Ox4) == 0): 
outportb(0x00a2, 0x70): /* スク ロー ルコ マン ド の 送出 */ 
Sc1ad1 -= SCLPTC: 
1f(sc1ad1 <= GSTADR) { 

ScC1ad1 = GENADR: 

Sc1no1 = 0: 

Sc1no2 = STLTNE: 

ad1 .dataw = GSTADR: 

ad2 .dataw = GENADR - SCLPTC: 

no1 .dataw = ENLTNE: 

no2.dataw = SCLD16: 
} 
e1se { 

Sc1no1 += SCLD16: 

Sc1no2 -= SCLD1 6 

ad1 .dataw = So1ad1: 

ad2 .dataw = GSTADR: 

no1 .dataw = Sc1no1: 

no2.dataw = so1no2: 
} 
no1 .datab.high |= gdohz: 
no2.datab.high |= gdohz: 
while((inportb(0xa0) & 0x20) != 0): 
while((inportb(0xa0) & 0x20) == 0): 
outportb(0xa0, ad1.datab.1ow) : /* GDC へ 各 パ ラメ ー タ を 送る */ 
outportb(0xa0, ad1.datab.high) : 
outportb(0xa0, no1 .datab. 1ow) : 
outportb(0xa0, no1.datab .high) : 
outportb(0xa0, ad2 .datab . 1ow) 
outportb(0xa0, ad2 .datab.high) : 
outportb(0xa0, no2.datab.1ow) : 
outportb(0xa0, no2 .datab .high) : 
if(sign == 0) { /* sign=0 な ら 全 画面 を 砂漠 の デー タ で 埋め る */ 

For(1 = gVvs: 1 < VEND: ユ +=2) { 

*(Ln も Ear メ )(C b1ue +† 1 ユ ) =-0: 
*(1nt far *) (Cc red  + 1) 0xaaaa: 


*(1nt far *) (c_green + 1) 0xaaaa: 
*(1nt far *) (C itsty + 1) 0xaaaa: 
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} 
e1se { /* sign=1 な ら ば マッ プ デ ー タ を 表示 する */ 
For(map x = 0: map x く 20: ++map xx, 9VS+=4, 9Ve+=4) { 
n = map data [map Y] [map X]: 
for( 1] = 0, m = map Ptn Y, DP = 9VS, q = 9V@: 
1 < SCLDOT: ++1, ++m,。 p += 80,q+=80 ) { 
*(1ong far *) (c bl1ue + p) = pattern [n] .dtb[m] 
*(1ong Ear *) (Cc_red + p) = pattern [pn] .d モ も ェ [m] 
*(1ong far *) (Cc_green +† p) = pattern [n] .dtg[m] : 
*(1ong far *) (c tsty + p) = pattern [n] .dt1[m] 
} 
} 
map Ptn Y -= SCLDOT: 
ifE(map ptnY く <0) { 
map Ptn y = PTY - SCLDOT: 
++map 
if (map data[map Y][0] == 0 || map y >= 240) 
enemy _S1gn = 9VS - 80 * 2: 
for(n =0: n< 20: ++n) [{ 
enemy tab1e1 [n] = map data[map Y][n]: 
} 
} 


el1se enemy sign = 0: 


さて 、LIST4-4.C で は 、 ス クロ ー ル と 共に マッ プ の 表示 処理 も 同時 に 
行っ て いま す 。 マ ッ プ の 表示 開始 位置 を 示し て いる の が 関数 の 引数 gvs 
で 、 表 示 終 了 位 置 を 示し て いる の が gve で す 。 すなわち 、gyvs の 位置 で スク 
ロー ル し た 分 だ け マ ッ プ を 表示 し 、gve の 位置 で 不要 部 分 の 消去 を する わ 
時 で 誠 。 

引数 の sign は 画面 の 初期 状態 を 表示 する た め の サ イン を 意味 し て いま 
す 。 sign 三 0 で 初期 画面 の 表示 及び 使用 変数 の 初期 化 作業 を し て いま す 。 で 
は 、 こ の 関数 を 実際 に 動か し て み ま し ょ う 。main() 関数 と プロ ジェ クト 
ファ イル は 次 の よう に な り ま す 。 な お 、 プ ログ ラム の 先頭 で は 使用 する パ 
ター ン を 格納 し て ある ファ イル と マッ プ デ ー タ を 格納 し て ある ファ イル を 
ロー ド す る 構造 と し まし た 。 
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LIST4-5.C 


/* 
スク ロー ル の テス ト 

v/4 

#1nc1ude <qgraphios .h> 


#1nc1ude 
#1nc1ude 


< く conto .h> 
く stdio .h> 
< く bios98 .h> 
<dos .h> 


#1nc1ude 
#1no1ude 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


PrY 
NPAT 
MAKE ESC 
SCrDor 
PTY0 42*80*8 
VSTADR 16 
MAKE RETURN Ox1c 


32 
80*PTY 
0 
の 


extern 1nt pattern 1n(unsigned int, nt) : 
extern nt pattern out (unsigned int, nt) : 
extern nt gl1oad (vo19) : 

extern nt map data 1oad (void) : 

extern vo1d scro11 (int, int, nt) : 


extern char gdohz: 


int mwindow = 36: 


void main() 
{ 
nt 1,。 ], k,。 1, m,。 n, py0, pye, keydat: 
KEY INEFO keyinf: 


if (inportb(0x31) sg 0x80) gdchz = 0: 
e1se gdchz = Ox40: 
9rphinit () : 
Pointer set () : 
PrintE("wn パ ター ッ デー ロート") : 
if (g1oad() == 0) { 
For(k =m=n=0, 1] = mwindow: K < 4: ++Kk, 1]+=NPAT) { 
for(1 = 0。 = 1: < 11: + ユ + ミ 。 う +=4) 【 


n = pattern 1n (m+, ]) 
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ifF(n != 0) breakz 
} 
ifE(n != 0) break: 
} 
map data 1oad() : 
CrSCE() 
keyinf.cmmd = 1: 
keydat = 0: 
Py0 = 80 * VSTADR: 
pye = 400 * 80 - 80 * SCLDOT: 
Scro11(80 * VSTADR, py0, 0): 
whi1e(keydat == 0) { 
keydat = bos98key(skeyinf) : 
SCro11 (py0, pye, 1): 
PyO0 -= 80 * SCLDOT: 
1E(py0 < 0) py0 = 80 * 400 - 80 * SCLDOT: 
Pye -= 80*SCLDOT: 
1f(pye < 0) pye = 80 * 400 - 80 * SCLDOT: 


} 
e1se { 


PrintE("\n presS any key"): 
getoch () : 


} 
c1osegraph () : 


LIST4-5.PRJ 


11st2-0 
1 お あせ 2 だ 1 
11st3-0 
11st4-0 
1 ユ 1s 上 4-2 
11s 上 4-4 
11st4-5 
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圏 ヒー ロー 登場 


いか が で し た か 、 実 際 に デザ イン し た マッ プ が スク ロー ル し て いく 過程 
を 見 る の は 一 種 感動 する を も の が ある の で は な いで し ょ うか 。 さ て 、 い よい 
よ 作 り 出 し た 新しい 世界 の 中 を 動き 回 る ヒー ロー の 登場 と 願い まし ょ う 。 
ある パタ ー ン を グラ フィ ッ ク 画 面 上 に 表示 する 場合 、 パ ター ン の 余白 か 
ら 見 える は ず の 背景 を いか に 表示 する か と いう 重ね 合わ せ 処 理 が 問題 と な 
り ま す 。 

これ を 完全 に 処理 する た め に は 、 ど の 部 分 が パタ ー ン で 、 ど こ か ら が 余 
白 で ある の か を 表す 専用 の デー タ が 必要 と な り ま す 。 デ ー タ 構造 と し て は 
パタ ー ン が ある 所 は 0、 無 い 所 は 1 と し て 背景 と の 論理 演算 AND を 実行 す 
る こと で 背景 を パタ ー ン の 形 で くり 抜く と いう 操作 を する わけ で す 。 後 は 、 
くり 抜い た 背景 の 所 に 論理 演算 の OR で パタ ー ン を 表示 すれ ば よい の で 
す 。 

実は 、 こ の よう に 言葉 で 説明 する の は 簡単 な の で す が 、 こ れ を プロ グラ 
ム す る と な る と 、 か な り 複 雑 こ な っ て し まい ます 。 そ こ で 本 書 で は 、 こ の 
重ね 合わ せ の 問題 を 解決 する た め に 、 砂 漠 (口絵 6) 以外 に は 移動 で き な い 
と いう 制限 を 付け る こと に し ます 。 す な わ ち 、 パ ター ン の 余白 の 部 分 に あ 
ら か じ め 背 景 の 砂漠 の パタ ー ン で 埋め て お くわ け で す 。 こ の よう な 制限 を 
付け る こと に よっ て プロ グラ ム は 飛躍 的 に 簡単 に な り ま す 。 し か も 、 パ ター 
ン の 移動 後に 残る 残骸 を 元 の 背景 に 復元 する 処理 も 単純 に 砂漠 を 描け ば よ 
いわ け で すか ら 、 さ ら に 処理 が 簡単 に な る わけ で す 。 も っ と も 、 マ ッ プ を 
描く 時 に は 必ず 砂漠 が 存在 し な いと 移動 で き な い と いう こと に な り ま すか 
ら 注意 し て くだ さい 。 で は 、LIST4-6.C へ と 進ん で くだ さい 。 


LIST4-6.C 


#define PTY 32 


#define NPAT 80*PrTY 
#define MAKE RTGHT Ox48 
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#deFine MAKE LEFT 0x46 
#deFine BREAK RTGHT 0xc8 
#define BREAK LEET Oxc6 
#define XMAX 76 
#define XMTIN 0 
#define ON 6 
#define OFF 0 
#define CRASH あ 
#define CONTTNUE 0 
#define UE 1 
#deEine MTG エ 2 
#Qdefine HTDAR エ 3 
#define VEND 400*80 


extern Char Far メ C 1ue: 
extern ohar Far oc red: 
Gextern Char Far *C Oreen: 


extern Char far Co itS キ >: 


extern nt keydat: 
extern Struct { 
1ong dtb[PTY] 
1ong dtr[PTY] : 
1ong Qtg[PTY]: 
1ong dti[PTY] : 
] pattern[50]: 


int check(unstgned int, nt, nt) 
int px = 38: 


/* 車 の 表示 及び 移動 処理 
int car disp(1nt Py, keep_PY) 
{ 
Stat1ic in 
dir m = OFF。 
dir h = OFF, 
Pn =0: 


unsigned int ], kz 


1nt dir, keep PX/ エ : 


dir = UE: 
keep_ px デ PXz 
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Switch (keydat) [{ 
CaSe BREAK RTGHT: 
dir m = OFF: 
1f (dir h == ON) keydat = MAKE LEFTz 
el1se break: 
CaSe MAKE LEEFT: 
dir = HTDART: 
dir h = ON: 
for(k = 0, ] = Px + 3 + py: k < PTY: ]+=80, ++k) { 
if (] >= VEND) ] -= VEND: 
*(c blue + ]) = 0: 
*(C red  + う ) = 0xaaz 
*(C_green 十 ]) = Oxaaz 
*(o tsty + }) 0』 
} 
ーーPXXz 
1f (px < XMTN) { 
dir = UE: 
PX = XMTN: 
} 
break: 
CaSse BREAK LEFT: 
dir h = OFPF: 
1f (dir m == ON) keydat = MAKE RTGHT: 
e1se break: 
case MAKE RTGHT: 
dir = MTGT: 
dir m = ONz 
for(k = 0, ] = px + Py: k < PTY: ]+=80, ++k) { 
1f (] >= VEND) ] -= VEND: 
*(c_ blue + ]) = 0: 
*(c red  + ]) = 0xaa: 
*(C_green 十 ]) = Oxaaz 
*(c itsty + ]) = 0: 
} 
+†DX/ 
if(px > XMAX) { 
dir = UEz 
PXx = XMAXz 
} 
break: 
defau1t : 
dir m = OFF: 
dir h = OFF: 
break 
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ニー ンー ンーーーーーーーーーーーーーーーーーーーー ーーーーーーーーーーーーーーーーー---------ーーーーーーーーーーーーーーー、ーーーー 


for(k = 0, ] = keep_ px + NPAT + py: k く 8: ]+=80, ++k) { 
1f(] >= VEND) ] -= VEND: 
*(1ong far *) (C_b1ue }) 0: 


*(1ong far *) (C_qreen }) 0xaaaaaaaa: 


二 
*(1ong Ear *)(c red  + う }) 0xaaaaaaaa: 
キ 
+ 


*(1ong far *) (Cc 1tstY }) 0: 
} 
1E (cheok (px 十 py, keep_Ppx 十 keep Py, dir) == CONTINUE) { 
Switch(pn) { 
case 0: 
for(k = 0, ] = Px 十 py: k < PTY: ]+=80, ++k) { 
1E(] >= VEND) ] -= VEND: 
*(1ong far *) (c blue + う ) pattern [0] .dtD [k] 
*(1ong Far *) (c_red + 3) pattern [0] .dtr[k]: 
*(1ong far メメ) (c_ green + }) pattern [0] .dtg[k] 
*(1ong far *) (c itsty + }) pattern [0] .dti [k] 
} 
break: 
Ca8@e 1: 
for(k = 0。 ] = Px + py: k < PTY: ]+=80, ++k) { 
1E(] >= VEND) ] -= VEND: 
*(1ong Far *) (c_ blue + }) pattern [1] .dEDb [k] 
*(1ong Far メ ) (c_red + ]}) pattern [1] .dEr[k]: 
*(1ong far *)(c_ green 十 }) pattern [1] .dtg[Kk] 
*(1ong far *) (c tsty 十 ]) pattern [1] .dti [k] 
} 
break: 
CaSse 2: 
for(k = 0, ] = PX † Py: Kk く PTY: ]+=80, ++k) { 
1 (] >= VEND) ] -= VEND: 
*(1ong far *) (c bl1ue + う ) pattern [2] .dtDb [k] : 
*(1ong Ear *) (C_red + う 3) pattern [2] .dtr[k] 
*(1ong far *) (c_green 十 う ) pattern [2] .dtg [k] 
*(1ong far メ )(c itsty 十 ]) pattern [2] .dti [k] 
} 
break: 
defau1t : break: 
} 
++pn: 
1f(pn > 2) pn = 0 
生理 。 ザ る 
} 
el1se { 
PX ー keeP_PXz 
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エニ = 1』 
d1r m = OFPF: 
dir h = OFPz 
keydat= 1: 

} 


return (て) : 


/* 移動 方 向 が 移動 可能 か を 判断 する */ 
nt check(unsigned 1nt pxy, nt keep _pxy, 1nt 
{ 


unsigned char a, Db, oz 
unsigned int pxy2: 

も 語 い 板 RA だ 0 22 
1ong Oo, P, dz 


Py2 = DPxyz 
ェ = CONTTNUE : 
Switch (dir) { 
CaSe MTGT: 
PXy += 3: 
Case HITDART : 
a = *(c_ blue + PX): 


bD = *(C red 十 PXY): 


C = *(C_ green 填 PXYy) 
if(a == 0 gg b == 0Oxaa &&g c == Oxaa) { 
Pxy += 80 * 16: 
1f (pxy >= VEND) pxy -= VEND: 
a = *(C _b1ue 十 PXy) 
b = *(cC_red † PXY) : 
C = *(C green 十 PXY): 
if(a == 0O gg b == Oxaa && c == Oxaa) { 
Pxy += 80*16: 
1F (pxy > VEND) pxy = VEND: 
a = *(C blue + PXy): 
b = *(c_ red  † pxy): 
で = *(C_ green 十 DX): 
if(a == 0 sg b == 0Oxaa && o == Oxaa) 
e1se r = CRASHz 
} 
el1se ェ = CRASH: 
} 
e1se r = CRASHz: 
CaSe UE: 
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oO = *(1ong far *) (c bl1ue  + Pxy2): 
Pp = *(1ong far *) (Cc_red +† PXY2) : 
q す = *(1ong Far *) (C_green 十 PXy2) 
if(o == 0O && p == Oxaaaaaaaa && q == Oxaaaaaaaa) : 
e1se r = CRASHz 
break: 
defau1t : break: 
} 
1Ff( ェ == CRASH) { 
Eor( も =。07 上 で 3j け t 
ぞ Eog《1 = 3 1 < く = 57 ++1) { 
Printf ("Wa") : 
while((inportb(0xa0) g 0x20) != 0): 
while((inportb(0xa0) & Ox20) == 0): 
For(k = 0, 〕 = keep pxy: Kk < PTY: }+=80, ++k) { 
1E(〕 >= VEND) ] -= VEND: 
*(1ong far *)(c_ bl1ue + ]) = pattern [1] .dtb [k] : 


*(1ong far *) (c_red + ]) = pattern [1] .dtr [k] 
*(1ong far *) (c_green 十 ]) = pattern [1] .dtg[k] 
*(1ong Far *) (c tsty + ]) = pattern [1] .dti[k]: 


for(k = 0, ] = keep_pxy: k < PTY: ]+=80。, 
1f(] >= VEND) ] -= VEND: 
*(1ong Far *)(c_ blue + ]})) = 0: 
*(1on9 far *) (C red ]) = Oxaaaaaaaa: 
*(1ong Ear *) (Cc_ green + ]) = Oxaaaaaaaa: 
*(1ong far *) (C itsty + ]) = 0: 


} 


return( エ ) 


さて 、 こ とこ で の 処理 の ポイ ント は 、 ヒ ー ロ ー と な る 車 を デザ イン し た パ 
ター ン 番 号 の 0-2 を 順番 に 表示 する 処理 の 所 で switch 一 case 文 を 使用 し 
て いる こと で す 。 こ れ は 、 構 造 体 を 参照 する 場合 の イン デック ス を ダイ レ 
クト に 数 値 を 使っ て 指定 する 為 の 工夫 な の で す が 、 こ の 方 が 、 変 数 に よる 
場合 より も 若干 スピ ー ド が 早い と いう こと で す 。 

また 、 移 動 可 能 か 否 か の チェ ッ ク を G.V.RAM か ら 直 接 デ ー タ を 読ん 
で 判断 し て いま す 。 砂漠 の デー タ は 、B 面 が 0 で 、R 面 と G 面 の デー タ が 
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0xaaaa…… と 並ん で いる 構造 と な り ま すか ら 、 車 の 進行 方 向 と 左右 で G. 
V.RAM の 数 値 を チェ ッ ク す る わけ で す 。 な お 、 左右 で チェ ッ ク す る 場合 
に は 、 パ ター ン の 上 中 下 の 3 箇 所 で チェ ッ ク を し ます 。 で は 実際 に 動か し て 
み ま し ょ う 。 な お 、 LIST4-7 .C は キー ボー ド 設 定 用 と な り ま すか ら 注 意 し 
て くだ さい 。 


LIST4-7.C 


#1no1ude <dos .h> 
#inc1ude <bios98 .h> 
#define STATUS PORT 
#deFine COMMAND PORT 
#def1ine DATA PORT 
#define EO エ 

#define COMMAND 
#defFine EOTDATA 
#deFine ERRCODE 


1nt keydat, 
random= 3751, 
seed1 = 3751, 
seed2 = 1357』 


vo1d frandom (void) : 


/* キー ボー ド 割 り 込 み 関数 の 定義 */ 
void interrupt keyset (vo1d) 
{ 


int 

Erandom() 

ト 人 に inportb (STATUS PORT) g ERRCODE 

1iE(x == 0) { 
outportb (COMMAND PORT, COMMAND) : 
keydat = nportb(DATA PORT) : 

} 

outportDb (EOT, EOTDATA) : 

} 


/* 疑似 乱数 用 関数 */ 
Yo1d frandom (Vo1d) 
{ 
Seed1 = randomz 
random くく = 2: 
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ranQdom サー seed1: 
++randommz 

random = random & OxE: 
ranQdom 2 


Yo1d interrupt ( メ jkeepveotor9) () : 
Yo1d interrupt keyset (vo1d) : 


/* キー ボー ド 割 り 込 み の 初期 設定 */ 
Yo1d initkey (Vo1d) 
{ 
keepvector9 = getvect (9): 
Setvect (9, keyset) : 


/* キー ボー ド 割 り 込 み を 復元 する */ 
Yoid termikey (vo1d) 
{ 
KEY TNFO keyinf: 
Setvect (9, keepvector9) 
keyinfF.ommd = 3: 
bios98key(skeyinE): 


LIST4-8.C 


#1nc1ude <graphtos .h> 
#inc1ude < く conio .h> 
#1nc1ude く stdio .h> 
#1nc1ude <dos .h> 


#defFine PTY 32 
#define NPAT 80*PTY 
#deF1ine MAKE ESC 0 
#define SCLDOT な 
#define PTYO 42*80*8 
#define VSTADR 16 
#QeF1ne MAKE RETURN 0x1c 


xtern in keydat, PDxz: 

extern nt pattern in(unsigned 1nt, nt) : 
extern nt pattern out (unsigned int, 1nt): 
extern in gload (vo1d) : 

@xtern Yo1d nitkey (Yo1d) : 
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extern vo1d termkey (vo1d) : 
extern nt Car disp(int, nt): 
extern Void scro11 (int, nt, nt): 


extern 1nt map data 1oad (vo1d) : 
extern char gdohz: 
nt mwindow = 36: 


Yotd main() 

{ 
4 双 も は 。 ],。 K/。 1。 m。 n。 PDY, PYO/。 PV, エ / 
unsigned int kyori: 


if (inportb(0x31) g Ox80) gdchz = 0: 
e1se gdchz = Ox40: 
9rphinit () : 
pointer set () 
C1rSor () / 
Printf("Wn パ ーッ アー ロー トド"): 
if(g1oad() == 0) { 
for(k =m=n=0, 1 =mwindow: k < 4: + 上 Tk,。 1 += NPAT) { 
Eox( = 0,。 3=ー 1 よく 117 1 も ) *m 4) { 


n = pattern in (m++。 ]) : 
if(n != 0) break: 


} 
if(n != 0) break: 
} 
map data 1oad() 
C1rSCr() 
initkey() : 
gotoxy(1。 1) 
printE("RALLY 98"): 
keydat = 1: 
py0 = 80 * VSTADR: 
while(keydat != MAKE ESC) { 
Scro11(80 * VSTADR, py0, 0): 
ュ = PTYOz 
= PTYO: 
= 38: 
= 80 * VSTADR: 
= 400 * 80 - 80 * SCLDOT: 
keydat = Oxz70: 
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kyor1i = Ox0: 


ェ ー テ 0: 


gotoxy(68, 1): 
printf(" 距 離 ) : 
while(keydat != MAKE ESC gg ェ == 0) { 


9otoxy(73, 1): 

PrintE(" も u m 電信 玉 まま ) 7 

KYO エエ ょ 

ェ = Car disp(py, 1): 

while(keydat == 0Ox70): 

Scro11 (py0, pye, 1): 

1 = Py: 

Py -= 80 * SCLDOT: 

if(py く 0) py =80* 400 - 80 * SCLDOT: 
PyO -= 80 * SCLDOT: 

if(py0 < 0) pyO0 = 80 * 400 - 80 * SCLDOT: 
Pye -= 80 * SCLDOT: 

1iE(pye < 0) pye = 80 * 400 - 80 * SCLDOm: 


} 
termikey() 
} 
@1se { 
Printf("\n presSs any key"): 
getoh () 
} 
c1osegraph ( ) : 


LIST4-8.PRJ 


11st2-0 
11 st2-1 
11st3-0 
11st4-0 
11 st 上 4-2 
11st 上 4-4 
11st4-6 
11s4-7 
11st4-8 
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田 敵 の 出現 


英 、 す な わ ち 、 進行 を 邪魔 する 存在 で す が 、 本 書 で は 砂漠 の 中 か ら 突 然 、 
回 転 し な が ら 現 れる 三角 形 の 板 と し まし た 。 そ う で す 、 ア ニメーション の 
サン プル で 使っ た あの パタ ー ン で ま 。 ア ニメーション と いっ て も パタ ダ ターン 
番号 を 順番 に 変化 させ る と いう 簡単 な も の で す 。 こ こ で 特に 難し い の は 出 
現さ きせ る タイ ミン グ で し ょ う 。 進 行 を 妨げ る の で すか ら 、 移 動 不可 能 な 砂 
漠 以 外 の 所 に 出現 し た の で は あま り に も 芸 が な いか ら で す 。 次 の プロ グラ 
ム で は 、 疑 似 乱数 を 使っ て マッ プ デ ー タ か ら 砂 漠 の パタ ー ン を サー チ し て 、 
英 を 起動 する タイ ミン グ と し て あり ます 。 で は 、 一 気 に 最 後 の プ ロジ ェ ク 
ト フ ァイル で ある LIST4-10 .PRJ まで 進ん で くだ さい 。 


LIST4-9.C 


#define PTY 32 /* パタ ー ン を 構成 する ライ ン 数 */ 

#define SCLDOT 2 /* スク ロー ルド ッ ト 数 */ 

#deFine VEND 400*80 /* G.V.RAM の END ア ドレ ス */ 

#define SABAKU 6 /* 砂漠 パ ター ン 番 号 */ 

#define STAPTN 7 /* 英 パ ター ン ア ニメーション スタ ー ト 番号 */ 
#define ENDPTN 18 /* 敵 パ ター ン ア ニメーション エン ド 番 号  */ 
extern char far *o Db1ue: /* B 面 へ の ポイ ンタ */ 

extern char Far *o redz /* R 面 へ の ポイ ンタ ォ */ 

extern Char far Xo green: /* G 面 へ の ポイ ンタ */ 

extern char Far *o itstY: /* エ 面 へ の ポイ ンタ +*/ 

extern int enemy tab1e1[20]: /* 敵 x 座 標 決定 用 */ 

extern int enemy sign: /* 逆 出 力 サ イン */ 

extern 1nt randomz /* 居 数 格納 用 */ 

extern 1nt px: /* パタ ー ン 座標 */ 


キ 


/* パタ ー ン 格納 用 構造 体 */ 
extern Struct { 
1ong dtb[PTY]: 
1ong dtr[PTY]: 
1ong Qtg [PTY] : 
1ong dti[PTY] : 
] pattern [50]: 
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/* 敵 の 状態 管理 用 構造 体 の 定義 */ 
Struot { 

1nt 1nf: 

nt 

nt Y: 

1nt dyz 

int ptnz 
) enemy[4]: 


void frandom (vo1d) : 


/* 敵 の 表示 用 関数 の 定義 */ 
void enemy disp(1int enemy Set ) 
{ 
も 和え 。 4。 KEN あ は 
if(enemy _Set == 1) { 
for( ミ = 0 エ < 4: ++ ュ ) { 
/* 敵 の 状態 別 処理 */ 
Switch (enemy [1] .inF) { 
case 0: 
/* 敵 表示 開始 処理 */ 
3E(enemy sign != 0) { 
Frandom() : 
for(] = 0, k = randomz ]) く 20: ++}) { 
++k : 
if(k >= 20) k = 0: 
〕 = enemy tab1e1 [k] : 
1f (] == SABAKU) { 
enemy [1] .inf = 1: 
KK. 呈 .K 二 k 十 KK 二 k> 
enemy [1] .x = kz 
enemy [1] .Y = 16: 
enemy [1] .dy enemy _S19n+†k: 
enemy [1 は ] .ptn STAPTN * 4: 


enemy_S1gn 0: 


break: 


} 
break: 
Ca8@e 1: 
/* 敵 y 座 標 更新 */ 
enemy [1] . ゞ += SCLDOT: 
if (enemy [1] .y > 400-10*PTY) enemy [1] .inE = 2: 
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breakz 
CaSe 2: 
/* 敵 パ ター ン 更 新 処理 */ 
n = enemy [1] .ptnz: 
n >>= 2 ょ 
1F (n >= ENDPTN) enemy[1].inf = 0: 
for(] = 0, m = enemy [1] .dy, k = PTY-1: 
] < PTY: ++]。 一 -k) { 
*(1ong far *) (Cc blue + m) 
= pattern [n] .dEb [k] 
*(1ong far *) (Cc _red +† mm) 
= pattern [n] .dtr[k] : 
*(1ong far *) (Cc_green + m) 
= pattern [n] .dtg[k] : 
*(1ong far *) (c itsty 十 m) 
= pattern [n] .dti [k] 
m -= 80: 
if(m < 0) m += VEND: 
} 
++ enemy [1] .ptn: 
break: 
defau1t : break: 


e1se { 


/* 敵 情報 テ ー ブ ル 初期 化 */ 


for(1 = 0 1 < 4: ++ ュ 1) enemy[1] .inf = 0: 
enemy _S1gn = 0: 


LIST4-10.C 


#1inc1ude <graphios .h> 
#1nc1ude 
#1nc1ude 
#1inc1ude 


< く conio .h> 
< く stdio .h> 
< く dos .h> 


#Qefine PTY 
#deFine NPAT 
#deFine MAKE ESC 
#deFine SCLDOT 


32 
80*PTY 
り 
2 
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#define PTYO 42*80*8 
#define VSTADR 16 
#deFine MAKE RETURN 0x1co 


extern 1nt keydat,。 Pxz 


extern 1nt pattern in(unsigned int, 1nt): 


extern nt pattern out (unsigned int, 1nt): 


extern nt gl1oad (vo1d) : 


extern void initkey (vo1d) : 


extern Vo1d termkey (Vo1d) : 


extern 1nt car disp(int, int): 


extern void scro11 (1nt, nt。 nt) 


extern 1nt map data 1oad (vo1d) 


extern Yo1d enemy disp(1nt) : 


extern void frandom(vo1d) : 


extern char gdohz: 


int mwindow = 36』 


void matn() 


{ 


nt 1/。 ], k。 1。 m。 nm,。 BPY PyY0, Pye, エ : 
unSs1igned nt kyori: 


if (1nportb(0x31) sg Ox80) gdchz = 0: 
e1se gdchz = 0Ox40: 
9rphinit(): 


Pointer set () : 


C1r8Cr() 
Printf("Wn パ ター ッ デー ロー トド ") : 
if (g1oad() == 0) { 
for(k =m=n ニ = 0, ] = mwindow: Kk < く 4: 士 +k,。 1] += NPAT) 
for(1 = 0 = 1 まく 11 ++ オ 3/。 )+=4) { 
n = pattern 1n (m++。 ]): 
1f(n != 0) break: 
} 
if(n != 0) break: 
} 
map data 1oad() : 
で まる 8GE'() 7 
initkey () : 
gotoxy(1, 1): 


{ 
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printE("RALLY 98"): 
keydat = 1: 

PyO0 = 80 * VSTADR: 
while(keydat != MAKE ESC) { 


enemy_disp(0): 
scro11(80 * VSTADR, py0, 0): 
ュ = PTYO: 
Py = PTY0: 
PX = 38: 
py0 = 80 * VSTADR: 
pye = 400 * 80 - 80 * SCLDOT: 
keydat = Ox70: 
kyori = Ox0: 
ょ = 0: 
gotoxy(68, 1): 
printf ("距離 ") : 
whi1e(keydat != MAKE ESC gg エ == 0) { 
gotoxy(73, 1): 
PrintE("*u m "kyor1 は ) 
++kyor1: 
ェ = Car disp(Ppy, 1) : 
while(keydat == 0Ox70) Erandom() 
enemy_disp(1): 
Soro11 (py0, pye, 1): 
1 = PBY: 
Py -= 80 * SCLDOT: 
if(py く 0) py =280* 400 - 80 * SCLDOT: 
PyO0 -= 80 * SCLDOT: 
1f(py0 < 0) py0 = 80 * 400 - 80 * SCLDOT: 
pye -= 80 * SCLDOT: 
if(pye < 0) pye = 80 * 400 - 80 * SCLDOT: 


} 
termkey () 
} 
else { 
Printf("\n presS any key"): 
getch ( ) 
} 
c1osegraph () : 
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LIST4-10.PRJ 


実行 し て みる と 、 た っ た 一 種類 の 敵 で す が 今 まで に な い 有 雰囲気 と な っ た 
は ず で す 。 こ こ で は 一 種類 の 敵 だ け と し まし た が 、 さ ら に 多く の 敵 を 出現 
させ 、 攻 撃 パ ター ン に 工夫 を 凝ら し た りす れ ば 、 こ の ゲー ム も より 面白 い 
も の に な る と 思い ます 。 

な お 、 機 種 に よっ て は 実行 スピ ー ド が 遅く 感じ られ る 場合 が ある か と 思 
いま す が 、 そ の 時 に は 、MS-DOS の コマ ンド ライ ン か ら 直 接 起動 し て みて 
くだ さい 。 

さて 、 サ ンプ ルプ ログ ラム と いう こと で 、 背 景 描 写 や 敵 の パタ ー ン も 含 
め て 33 種 類 の パタ ー ン だ け で ゲー ム を 作っ て み ま し た 。 市販 の ゲー ム と 比 
べ る と 今 一 歩 の 感 は 否め な いよ う で す が 、 そ れ も そ の は ず で す 。 市 販 の ゲー 
ム で は 、 数 百 も の パタ ー ン を 用 意 す る の が 普通 で す 。 し か も 、 プ ログ ラム 、 
パタ ー ン デザ イン 、 グ ラフ ィ ッ ク デ ザイ ン 、 シ ナリ オ 、 音楽 と いう よう に 、 
それ ぞ れ の 分 野 の プロ が 専門 分 野 を 担当 する と いう の が 一 般 的 で すか ら 、 
無理 も ちな いこ と な の で す 。 

と は いい な が ら 、 ア イデ ア し だ いで は 世界 中 に 受け 入れ られ る ゲー ム が 
生ま れる 可能 性 が あり ます か ら 、 後 は 読者 の 創造 性 に まかせ る こと と し て 
本 書 で の ゲー ム 作 り の 幕 と し まし ょ う 。 
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圏 まとめ 


C 言語 に よる ゲー ム 作 り は いか が で し た か 、 こ の よう に グラ フィ ックス 
処理 も 遊び 感覚 で で きる ゲー ム か ら 入 る と 楽し く 進 め ら れ た の で は な いで 
し ょ うか 。 プ ログ ラミ ング 作業 も 視覚 で 確か め な が ら 進 め て いく こと が で 
き 、 し か も 、 ゲ ー ム は 様々 な テク ニッ ク が 要求 さき れる た め に 、 プ ログ ラム 
テク ニッ ク の 修練 の 場 と し て は 最適 と いえ る の で は な いで し ょ うか 。 

グラ フィ ックス 処理 に は 様々 な 分 野 が あり ます が 、 基 本 は G.V.RAM 
へ の ポイ ンタ を どの よう に 扱う か に 尽き る と 思い ます 。CAD、CAM に 代 
表 さ れる CG の 世界 も 、 フ ァ ミ コン に 代表 きれ る TV ゲー ム の 世界 も 、 す 
べ て G.V.RAM を どの よう に 扱う の か と いう 問題 へ と 行き 着い て し まう 
の で す 。 

PC-9801 シ リー ズ は 、CAD、CAM や TV ゲー ム 用 の 専用 機 で は あり ま 
せん が 、 グ ラフ ィ ッ クス 処理 専用 の ハー ド ウェア で ある GDC (Graphic 
Display Controller) や GRCG (Graphic Charger)、EGC (Enhanced 
Graphic Charger) な ど が 登載 され て いる た め に 、 か な り の 処理 が 可能 に な 
り ま す 。 こ れ ら の ハー ドウ ェ ア の コン トロ ー ル も 、 本書 程度 の G.V.RAM 
の 処理 を 把握 し て いな いと 、 や は り 困 難 で ある と いえ ます 。 

と と ろ で 、 こ の GDC に 関し て は 、 そ れ だ け で 一 冊 の 本 が で きる ぐら い の 
内 容 が あり ます の で 、 本 書 で は GDC の 持っ て いる 機能 の 中 で も スク ロー 
ル 機 能 だ け に 絞り 、 他 の 機能 を 解説 する こと は し ませ ん で し た が 、 そ の 他 
様々 な 機能 を 応用 すれ ば 、 た と えば 直線 描画 機能 を 光線 銃 の 軌跡 に 利用 す 
る な ど 、 さ ら に お も し ろ い も の が で きる と 思い ます 。 

GRCG や EGC に 関し て は 、 登 載 機種 が 限ら れ て いる た め に 、 サ ンプ ルプ 
ログ ラム で の 使用 を 避け まし た 。 し か し 、 特に EGC に は 、 シ フト 機能 を 有 
し た 4 画面 同時 転送 機能 や 、 ビ ッ ト 演 算 機能 、 さ ら に EGC と GDC と を 組み 
合わ せ て 使う な ど 、 ゲ ー ム 制作 に は うっ て つけ の 機能 が 豊富 に あり ます 。 
登載 され て いる 機種 あれ ば 、 こ れ ら の 機能 を 使わ な い の は 、 ま さ に 「 宝 
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の 持ち 腐れ ] と いっ た と ころ で は な いで し ょ うか 。 た と えば 、 パ ター ン の 
完全 な 重ね 合わ せ 処 理 や 、 左 右 の ドッ ト 単 位 ス クロ ー ル 処理 、 多 重 ス クロ ー 
ル な ど ア イデ ア し だ いて で 応用 範囲 は か な り 広 いも の が あり ます か ら 、 ぜ ひ 、 
EGC の 活用 も 研究 し て みて 下さ い 。 

また 、TURBO C で は TURBO アセ ン ブ ラ と 組み 合わ せる こと に よっ 
て 、C の プロ グラ ム 中 に イン ライ ン ア セン プラ と し て アセ ンプ リ 言 語 の プ 
ログ ラム を 書く こと が で きま す 。 も し 、TURBO アセ ンプ ブラ が な く て も 、 
MASM で 開発 し た マシ ン 語 と の リン ク が 簡単 に で きる た め に 、EGC な ど 
の 機能 が 登載 され て いな い 機 種 を 使用 し て いる 方 や 、 汎 用 性 の 観点 か ら 
PC-9801 シ リー ズ 固 有 の GDC、GRCG、EGC と いう ハー ドウ ェ ア は 使い た 
く な いな ら ば 、C 言語 と マシ ン 語 の リン ク と いう 方 法 を 検討 し て みる の も 
よい で し ょ う 。 も ちろ ん これ ら の 登載 機種 で あっ て も 、 た と えば パタ ー ン 
表示 関数 な どの よう な 、 特 に スピ ー ド を 要求 され る 一 部 の 処理 を マシ ン 語 
に 置き 換え る と いう の は 、 度 々 用 いら れ て いる 手法 で す 。 

本 書 を ステ ッ プ に GDC や EGC を 駆使 し た 本 格 的 な グラ フィ ックス 処 
理 に チャ レン ジ し て みて くだ さい 。 も し も 、 マ シン 語 や ゲー ム に 興味 が あ 
る 方 で あれ ば 、『 は じ め て の マシ ン 語 』 ( 啓 学 出版 )、『 マ シン 語 ゲ ー ム プロ 
グラ ミン グ 』 (アス キー) 『 マ シン 語 ゲ ー ム グラ フィ ックス 』 (小学 館 ) な ど 
に も 取り 組ん で みて くだ さい 。 ま た 、 最 後に な り ま し た が 、 本 書 お よび 続 
編 に 対す る 御 意 見 、 御 希望 な ど あ り ま し た ら 聞 か せ て いた だ けれ ば 幸い で 
す 4 
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